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ШЕ ыызынын наны ының б ПО 


Computers are becoming the backbone of family entertainment 
throughout the world, and games for these computers are growing 
by the thousands. For families who have computers, the computer 
is getting to be more of a pastime than that livingroom relic the 
television. 

The programs in this book should help speed the computer’s 
takeover of the livingroom. All but the last four programs run on all 
three of the most popular home computers. 

I wish to thank the Tandy Corporation, Apple Computer Inc. 
and Commodore Pet Business Machines for their help and use of 
material in the Appendices. 


David Chance 


Dedicated to my wife, Karen 


Chapter 1 


This book contains 33 games that will help you enjoy your home 
computer to the fullest. All but the last four programs run equally 
well on TRS-80™, Apple II™ or PET® computer, providing you pay 
attention to the equivalents section of this chapter. The equiva- 
lents section shows you the statement types that you must change 
to make the programs run on your computer—the program descrip- 
tion remains the same, however. 

The last four programs take advantage of the TRS-80's 
graphics; converting these programs to run on the other two 
computers is outside the scope of this book. 

Once you have entered the programs and tried them a few 
times you might try modifying the programs to suit your own needs 
and tastes. In some cases instructions for such program modifica- 
tion have been included. 


THE GAMES THEMSELVES 


For each program you'll find a general description, a flow 
chart, a sample run (where appropriate) and finally, the program 
listing. All of the programs have been thoroughly tested and do run 
well. 

So, if you are ready to risk losing all of your oxygen, try Life 
Support; if you'd rather become a biologist and search for new life 
forms on the ocean bottom, try Fathom. Kat & Mouse lets you 
chase a mouse and try to slap it—but you'll never see the mouse's 
house. Test your memory with Memory Test and Memory Test II. 

The programs are divided by type so that you go through this 
book like an amusement park. Enter it and have fun! 


THE BASIC EQUIVALENTS 


Equivalents are given for the TRS-80'", APPLE II'" and 
PET? computers. 

Below is a list of TRS-80 statements along with their APPLE 
II and PET equivalents. Most of the statements are used through- 
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manual before entering a program. 


TRS-80 APPLE II PET 

A$ = INKEY$ GET A$ 

CLS HOME GET A$ 
RND(N) or RND(N) or PRINT “RI” 


INT(10)*RND(N) +N) INT(1O*RND(N)) +1 М = INT(G*RND() + 1) 


10 


Where N = any number, to seed a random generator. The INT 
(integer) function rounds off the value in parentheses. The biggest 
difference among these program statement types is the INKEY$ 
function. If you own a APPLE П or PET computer be sure to change 
all such program lines to the appropriate GET form run on that 
computer. 

For example: if a line reads: A$ = INKEY$, for APPLE II or 
PET, change it to read, GET A$. 
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Chapter 2 


Bombardier 


| 


y JET 
meg 


NNN 


Sharpen your vision for this game. You are going to be a bombar- 
dier and your trusty computer will be the navigator and pilot. Keep 
the surface wind speed in mind, along with the distance to target. 
Don’t use all your bombs on one target! 

Good luck, Bombardier! 


Sample Run 


BOMBARDIER 

PRINT INSTRUCTIONS? YES 

WELCOME, YOU WILL BE THE BOMBARDIER THROUGHOUT 
THIS 

GAME ANDI, YOUR COMPUTER, WILL BE YOUR NAVIGATOR AND 
PILOT. 


WE WILL BE GIVEN A TARGET TO DESTROY. YOU'LL HAVE TO 
DECIDE WHEN TO OPEN THE BOMBAY DOORS AND RELEASE 
THE BOMBS. BEFORE YOU DROP THE BOMBS YOU'LL HAVE ТО 
TAKE 

INTO CONSIDERATION THE FOLLOWING: 

1) SURFACE WIND SPEED 

2) DISTANCE TO TARGET 

PRESS А КЕҮ..... 

YOU'LL ONLY BE USING THE FOLLOWING KEYS: 

A.... TO ABORT MISSION 

О.... TO OPEN BOMBAY DOORS 

D.... TO DROP BOMBS 
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F.... UPDATE ON SURFACE WIND SPEED, 
MILES TO TARGET (CONTINUE FLIGHT). 
WE WILL RECEIVE INFORMATION IN A FEW SECONDS ..... 
YOU WILL BE DROPPING ROCKET BOMBS 
MADE FROM A NEW ALLOY. 

TRY TO GET WITHIN 100 MILES OF THE 
FUEL DEPOT BEFORE DROPPING BOMBS..... 
THE STATUS RIGHT NOW: 

SURFACE WIND SPEED: 24 

OUR SPEED: 1243 

BOMBS ON BOARD: 499 

MILES TO TARGET: 1013 

PRESS A КЕҮ..... 

WHEN YOU ENTER A COMMAND: 

PRESS THE LETTER, THEN PRESS ENTER/RETURN. 
REMEMBER, TO CONTINUE FLIGHT, PRESS 'F' 
THEN PRESS ENTER/RETURN. 

PRESS A KEY..... 

COMMAND? F 

MILES TO TARGET: 228 

OUR SPEED: 1243 

SURFACE WIND SPEED: 19 

COMMAND? F 

MILES TO TARGET: 198 

OUR SPEED: 1243 

SURFACE WIND SPEED: 19 

COMMAND? F 

MILES TO TARGET: 176 

OUR SPEED: 1243 

SURFACE WIND SPEED: 19 

COMMAND? F 

MILES TO TARGET: 129 

OUR SPEED: 1243 

SURFACE WIND SPEED: 19 

COMMAND? F 

MILES TO TARGET: 81 

OUR SPEED: 1243 

SURFACE WIND SPEED: 19 

COMMAND? O 

BOMBAY DOORS OPENING..... 

BOMBAY DOORS OPEN..... 

COMMAND? F 
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MILES TO TARGET: 80 

OUR SPEED: 1243 

SURFACE WIND SPEED: 19 
COMMAND? F 

MILES TO TARGET: 35 

OUR SPEED: 1233 

SURFACE WIND SPEED:19 
COMMAND? 0 

THEY'RE ALREADY OPEN ! ! 
COMMAND? D 

HOW MANY BOMBS TO BE RELEASED? 50 
IF YOU ARE READY 

TO DROP 50 BOMBS, PRESS ENTER/RETURN? 
BOMBBSAWWWAAY!! 
YOU MISSED THE FUEL DEPOT 
WE STILL HAVE 449 BOMBS LEFT.... 
BOMBAY DOORS CLOSED. ... 
THE STATUS RIGHT NOW: 
SURFACE WIND SPEED: 24 
OUR SPEED: 1233 

BOMBS ON BOARD: 449 

MILES TO TARGET: 1184 
PRESS A KEY ..... 
COMMAND? F 

MILES TO TARGET: 259 

OUR SPEED: 1233 

SURFACE WIND SPEED: 19 
COMMAND? R 

WHICH COMMAND IS THAT ??? 
COMMAND? F 

MILES TO TARGET: 185 

OUR SPEED: 1233 

SURFACE WIND SPEED: 19 
COMMAND? F 

MILES TO TARGET: 120 

OUR SPEED: 1233 

SURFACE WIND SPEED: 19 
COMMAND? F 

MILES TO TARGET: 46 

OUR SPEED: 1223 

SURFACE WIND SPEED: 19 
COMMAND? F 
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MILES TO TARGET: 41 

OUR SPEED: 1183 

SURFACE WIND SPEED: 19 

COMMAND? 0 

BOMBAY DOORS ОРЕМІМС.... 

BOMBAY DOORS ОРЕМ.... 

COMMAND? D 

HOW MANY BOMBS TO BE RELEASED? 100 
IF YOU ARE READY 

TO DROP 100 BOMBS, PRESS ENTER/RETURN? 
BOMBSAWWWAAY!! 

YOU MISSED THE FUEL DEPOT(AGAIN). 
WE STILL HAVE 349 BOMBS LEFT.... 
BOMBAY DOORS CLOSED. 

THE STATUS RIGHT NOW: 

SURFACE WIND SPEED: 24 

OUR SPEED: 1173 

BOMBS ON BOARD: 349 

MILES TO TARGET: 1128 

PRESS A KEY..... 

COMMAND? F 

MILES TO TARGET: 88 

OUR SPEED: 1173 

SURFACE WIND SPEED: 19 

COMMAND? F 

MILES TO TARGET: 55 

OUR SPEED: 1173 

SURFACE WIND SPEED: 19 

COMMAND? F 

MILES TO TARGET: 26 

OUR SPEED: 1163 

SURFACE WIND SPEED: 19 

COMMAND? 0 

BOMBAY DOORS OPENING . ... 

DOMDAY DOORS OFEN. 

COMMAND? D 

HOW MANY BOMBS TO BE RELEASED? 100 
IF YOU ARE READY 

TO DROP 100 BOMBS, PRESS ENTER/RETURN? 
BOMBSAWWWAAY!! 

EXCELLENT BOMBING ! ! 

WE DON'T HAVE TO WORRY ABOUT THE FUEL DEPOT NOW. 
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INSTRUCTIONS 


PRINT INSTRUCTIONS 


GET TARGETS 


SET MILES TO 
TARGET 


SET PRINCIPAL 
TARGET AREA 
X AND Y | 


SET AMOUNT OF 
BOMBS 


SET SURFACE 
WIND SPEED 


— 


SET PLANES SPEED 


SET « » LIMITS 


MESSAGE 


INPUT COMMAND 


PRINT UPDATE 
MILES TO TARGET 


YES 


ABORT M;SSION 


Fig. 2-1. The flowchart for Bombardier. 


MESSAGE 


| DROP BOMBS DOOR 


NO 
S OPEN 


YES 


ONGRATULATION 
MESSAGE 


WE STILL HAVE 249 BOMBS LEFT.... 
BOMBAY DOORS CLOSED. ... 


STOP 


Yes, itis possible to hit a target. Just keep an eye on the miles 
and remember to open the bombay doors before you drop the 
bombs as things could get quite messy! See Fig. 2-1 for the flow 
chart for this program. 


Program Listing 


10 
20 
30 
40 
90 
60 
70 
80 


on 
Ju 


100 


110 
120 


130 


140 


150 


160 


170 
180 
190 
200 
210 
215 
220 
230 
240 
200 
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CLS:PRINT:IF Q=1 THEN 280 

PRINT: PRINT TAB(10); "BOMBARDIER" 
PRINT 

PRINT: PRINT“INSTRUCTIONS”; 

INPUT A$ 

IF A$ < > “YES” THEN 80 

GOTO 110 

IF A$ < > “NO” THEN 100 


ODIN ann 
VIVU LA LOU 


PRINT:PRINT'I AM ABLE TO RESPOND TO YES OR NO, 
ONLY":PRINT:GOTO 40 

PRINT 

PRINT"WELCOME, YOU WILL BE THE BOMBARDIER 
THROUGHOUT THIS" 

PRINT"GAME AND I, YOUR COMPUTER, WILL BE 
NAVIGATOR AND PILOT." 

PRINT"WE WILL BE GIVEN A TARGET TO DESTROY. 
YOU'LL HAVE TO" 

PRINT"DECIDE WHEN TO OPEN THE BOMBAY DOORS AND 
RELEASE THE" 

РКІМТ“ВОМВ5. BEFORE YOU DROP THE BOMBS YOU'LL 
HAVE TO TAKE" 

PRINT"INTO CONSIDERATION THE FOLLOWING:" 
PRINT"1) SURFACE WIND SPEED" 

PRIN1"2) DISTANCE TO TARGET" 

GOSUB 210:GOTO 230 

PRINT:PRINT'PRESS A KEY..... i 

A$=INKEY$:IF A$—" " THEN 215 

CLS:PRINT:RETURN 

PRINT"YOU'LL ONLY BE USING THE FOLLOWING KEYS:" 
РКІМТ“А.... TO ABORT MISSION" 

PRINT"O.... TO OPEN BOMBAY DOORS" 


260 
270 
275 
280 
290 


300 
310 
320 
330 
340 
350 
355 
360 
370 
380 
385 
390 
400 
405 
410 
420 
430 


440 


450 
460 
465 
470 


480 


490 
500 
510 
520 
530 
540 
550 
560 
570 


PRINT"D.... TO DROP BOMBS” 

PRINT"F.... UPDATE ON SURFACE WIND SPEED,” 
PRINT“MILES TO TARGET (CONTINUE FLIGHT).” 

А=0:р = 1:PRINT:IF Q = 1 THEN 310 

PRINT“WE WILL RECEIVE INFORMATION IN A FEW SEC- 
ONDS...." 

FOR S = 1 TO 1500:NEXT 

REM SET TARGET 

I = INT(3*RND(0) + 1) :ON I GOTO 330, 340, 350 

T$ = “AMMUNITION FACTORY”:GOTO 355 

T$ = "WEAPONS FACTORY":GOTO 355 

T$ = “FUEL DEPOT” 

IF T$ = S$ THEN 320 

REM SET SECONDARY TARGET 

I = I + L:IF I = 4 THEN I = 3:READ W$(D 

DATA CONVOY OF TANKS, OIL DUMP, ENERGY AIRSTRIP 
Q$ = W$ 

REM SET MILES TO TARGET 

M = 1000 + INT(200*RND(0) + 5) 

IF Q = 1 THEN 590 

REM SET X AREA, BOMBS 

ON I GOTO 430, 440, 450 

X = INT(10*RND(0) + 5):B = INT(X*RND(0) + 300) :GOTO 
460 

X = INT(40*RND(0) + 15):B = INT(X*RND(0) + 200):GOTO 
460 

X = INT(50*RND(0)- 10) :B = INT(X*RND(0) + 500) 

REM SET SURFACE WIND SPEED, Y AREA 

ON I GOTO 470,480,490 

WS = INT(40*RND(0) + 14) :Y = ((WS-10) + (Y + WS): 
GOTO 500 

WS = INT(30*RND(0) + 13) :Ү = ((WS-5) + (Y + WS)) 
:GOTO 500 

WS = INT(20*RND(0) + 10) :Y = ((WS-3) + (Y + WS) 

REM SET PLANES SPEED 

S = 800 + INT(500*RND(0) + 300) 

REM SET < > AREA 

L = ABS((S/WS)*(Y-X)/20: IF L < 10 OR L > 110 THEN 410 
LL = INT(L) 

REM MESSAGE 

PRINT 

PRINT“YOU WILL BE DROPPING ROCKET BOMBS” 
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PRINT“MADE FROM A NEW ALLOY.” 

РКІМТ“ТКҮ TO GET WITHIN”; LL + 5;“MILES OF THE” 
PRINT T$;" BEFORE DROPPING BOMBS.... ” 
PRINT“THE STATUS RIGHT NOW:” 

PRINT“SURFACE WIND SPEED:”; WS 

PRINT“OUR SPEED :”;S 

PRINT“BOMBS ON BOARD:”;B 

PRINT“MILES TO TARGET:”;M 

GOSUB 210 

M = ABS(S-M) + 150 

IF M < 300 THEN M = 275 

PRINT:IF Q = 1 THEN 730 

PRINT“WHEN YOU ENTER A COMMAND:” 
РКІМТ“РКЕ55 THE LETTER, THEN PRESS ENTER/ 
RETURN.” 

PRINT“REMEMBER, TO CONTINUE FLIGHT, PRESS ‘F’,” 
PRINT“THEN PRESS ENTER/RETURN.” 

GOSUB 210 

PRINT"COMMAND*": 

INPUT B$:IF B$ < >“A” AND A = 2 THEN 1260 

IF B$ — "A" THEN 1210 

IF B$ = "O" THEN D = D:GOTO 845 

IF B$ — "D" THEN 900 

REM CONTINUE FLIGHT IF (F) 

IF B$ <>“A” AND B$ <>"0"” AND B$ <>“D” AND B$ <> 
“F” THEN PRINT"WHICH COMMAND IS THAT???": Bg =“: 
GOTO 730 

IF M > 51 THEN M = M-INT(50*RND(0) + 1) 

IF M « 50 THEN M = M-ES = S-10 

IF S « 800 THEN S = 800 

PRINT"MILES TO TARGET: M 

PRINT"OUR SPEED:”;S 

PRINT"SURFACE WIND SPEED:”; WS-5 

PRINT: B$=" ” :GOTO 730 

ТЕ D=2 THEN PRINT"THEVRE ALREADY OPEN "”СОТО 
840 

PRINT"OPENING BOMBAY DOORS... .” 

FOR I=1 TO S:NEXT 

X=Y-10:Y=X+5 

PRINT“BOMBAY DOORS OPEN ....” 

D=2:GOTO 840 

IF D < > 2 THEN 1140: REM DOORS NOT OPEN 


910 
920 
930 


940 
950 
960 
965 
970 
980 
990 
995 


1000 
1010 
1020 
1030 


1035 
1040 
1050 
1060 
1070 


1080 
1085 
1090 
1100 
1110 
1120 


1130 
1140 
1150 
1160 


1170 
1180 
1190 
1200 
1210 
1220 


PRINT“HOW MANY BOMBS TO BE RELEASED”; 

INPUT R 

IF R > B THEN PRINT“YOU ONLY HAVE”; B;"BOMBS LEFT 
СОТО 920 

PRINT"IF YOU АКЕ READY” 

РКІМТ“ТО DROP”;R;“BOMBS, PRESS ENTER/RETURN"; 
INPUT X$ 

PRINT“BOMBS A W W W A A Y!” 

FOR Q=M TO S 

X=X-1:Y=Y-1:IF INT(X+Y)/WS)+M <= 0 THEN 1010 

IF INT(X+Y)/WS)+M=LL THEN 1090 

IF LL > 15 THEN LL-LL-2:IF LL < INT((X+Y)/WS)+M THEN 
1010 

NEXT 

REM MISSED 

PRINT 

PRINT“YOU MISSED THE ”;T$;:IF Z-1 THEN PRINT" 
(AGAIN).”:GOTO 1040 

PRINT:Z-1 

IF LL « 20 THEN PRINT“BUT CAME CLOSE TO THE ”;Q$ 
B=B-R:IF B <= 0 THEN 1070 

PRINT"WESTILL HAVE”;B;“BOMBS LEFT... .”:GOTO 1080 
PRINT"YOU'VE USED YOUR AMOUNT OF BOMBS ТОО 
СОТО 1350 

Q=1:RESTORE 

PRINT“BOMBAY DOORS CLOSED..... ":GOTO 280 
REM ON TARGET 

PRINT 

PRINT“EXCELLENT BOMBING !!” 

PRINT"WE DON'T HAVE TO WORRY ABOUT THE “47%” 
NOW.” 

5%=Т$: СОТО 1050 

REM DOORS NOT OPEN 

PRINT 

PRINT"YOU'VE JUST DROPPED THE BOMBS — WITHOUT 
OPENING” 

РКІМТ“ТНЕ DOORS..... TURKEY !” 

PRINT 

PRINT“ABORT MISSION TO DEFUSE BOMBS....” 
A=2:GOTO 730 

REM ABORT MISSION 

PRINT 
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1230 
1240 
1250 
1255 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
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PRINT"YOU'VE ABORTED THE MISSION...... 4 
PRINT“JUST REMEMBER WHY, SO THE SAME” 
PRINT“MISTAKE WON'T HAPPEN AGAIN !!” 
GOTO 1350 

REM DID NOT ABORT 

CLS 

PRINT 
РЫМТВВВВЕРЕКОООООММШ!” 
PRINT“YOU WERE ORDERED ТО ABORT THE MISSION” 
PRINT“AND YOU DIDN’T....” 

PRINT"START FLAPPING YOUR WINGS, WE HAVEN'T” 
PRINT"ANY PARACHUTES ! ! ” 

REM PLAY AGAIN ? 

GOSUB 210 

PRINT“WOULD LIKE TO TRY AGAIN TODAY”; 
INPUT A$ 

IF A$ < >“YES” THEN 1410 
Z=0:Q=0:RESTORE:GOTO 10 

PRINT 

PRINT“TRY TO BE MORE CONSERVATIVE WITH” 
PRINT"THE BOMBS NEXT TIME!” 

END 


General 


You are the General of an army. You have 20,000 men at your 
command. You must beat the enemy force before they wipe you 
out. You must destroy 12,000 enemy troops while you have at least 
50 troops remaining to win. (Note: When entering the positions, 
enter only the first letter, i.e., М, E, S, W.) 


Sample Run 


*GENERAL* 
DO YOU NEED INSTRUCTIONS LISTED? YES 
YOU ARE THE GENERAL OF AN ARMY. YOU'LL HAVE 20,000 
MEN UNDER YOUR TOTAL COMMAND.THE COMPUTER WILL 
SELECT AN AMOUNT OF ENEMY TROOPS PER RUN AND PLACE 
THEM IN 
A RANDOM AREA. THE COMPUTER WILL THEN DECIDE IF IT 
WILL OUTPUT THE ENEMY’S X AREA. THE X AREA 
WILL RANGE FROM 1 TO 10. 
TO CONTINUE INSTRUCTIONS PRESS ENTER/RETURN 
YOU'LL PLACE YOUR MEN AT POSITIONS - NORTH, EAST 
SOUTH OR WEST, AND SELECT AN AREA (BETWEEN 1 AND 10). 
YOU'LL THEN INPUT AN AMOUNT ОЕ MEN TO PLACE 
AT THAT AREA. 
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IF YOU MATCH THE ENEMY'S POSITION/AREA, THEY'LL ВЕ 
IN FOR A SURPRISE. IF YOU MISS, YOU'LL LOSE A 
SIZEABLE AMOUNT OF MEN. 
IF YOU CAPTURE 12,000 ENEMY TROOPS YOU WIN, IF YOUR 
TROOPS DECREASE BELOW 50—YOU'LL LOSE 
TO BEGIN PRESS ENTER/RETURN 

X POSITION IS BETWEEN 1 AND 10 
I WILL RELEASE THE ENEMY'S X AREA, THIS TIME, 
BUT YOU MUST SELECT THEIR POSITION 
THEY'RE LOCATED AT AREA 3 BUT THIS IS ONLY 
TEMPORARY AND COULD QUICKLY CHANGE. 
WHERE DO YOU WANT YOUR TROOPS LOCATED? 
INDICATE POSITION (N,E,S,W)?N 
INPUT AREA? 7 
AND HOW MANY OF YOUR TROOPS DO YOU WANT 
LOCATED AT THIS AREA? 400 
WELL, YOU’VE ENTERED THE POSITION 
AND AREA CORRECTLY!! 
TORR te THE ЕНЕМЕ TROOPS WERL 43 
AND YOU ONLY SENT 400 TO THAT AREA. 
ONLY 27 OF YOUR TROOPS RETREATED..... 
AS THEY FIGURED THEY WERE OUT-NUMBERED. 
TOTAL BATTLES: 1 
THE ENEMY WAS AT POSITION: NORTH 
AND LOCATED AT AREA: 7 
YOUR STATUS ..... THIS BATTLE: 
TROOPS LOST: 373 
TROOPS THAT RETREATED: 27 
TROOPS THAT DESERTED: 0 
TROOPS LEFT TO BATTLE ARE: 19627 
GENERAL, THE REASON YOU LOST THIS BATTLE WAS - 
THE ENEMY FORCES WERE 431 OUT-NUMBERING YOURS ! 
PRESS ENTER/RETURN 
I WILL NOT RELEASE THE ENEMY'S AREA, 
BUT i WILL TELL YOU THEIR ATTACKING FORCES ARZ 
GREATER THAN 456 TROOPS: WATCH THE ENEMY! 
WHERE DO YOU WANT YOUR TROOPS LOCATED? 
INDICATE POSITION (N, E,S, W?E 
INPUT AREA? 2 
AND HOW MANY TROOPS DO YOU WANT 
LOCATED AT THIS AREA? 500 
TOTAL BATTLES: 2 


Få 
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THE ENEMY WAS AT POSITION: EAST 
AND LOCATED AT AREA: 7 

YOUR STATUS..... THIS BATTLE: 
TROOPS LOST: 385 

TROOPS THAT RETREATED: 0 
TROOPS THAT DESERTED: 14 


PRINT 
INSTRUCTIONS 
SET YOUR 
TROOPS 
SET ENEMY TROOPS 
PER RUN 
SET ENEMY 
LOCATION 
ee 


PRINT ENEMY 
X LOCATION 


INPUT YOUR 
POSITION 


INPUT YOUR 
AREA 


INPUT AMOUNT 
YOUR TROOPS 


YES <> 


UPDATE 


BS = Y$ 
PRINT ENEMY 
PRINT INO = TROOPS CAPTURED 


NO 
YES 

А(5) = 

12000 


PRINT WIN 
MESSAGE 


Fig. 2-2. The flowchart for General. 


TROOPS LEFT TO BATTLE ARE: 19228 

PRESS ENTER/RETURN 

I WILL RELEASE THE ENEMY’S X AREA, THIS TIME, 
BUT YOU MUST SELECT THEIR POSITION. 
THEY’RE LOCATED AT AREA 4 BUT THIS IS ONLY 
TEMPORARY AND COULD QUICKLY CHANGE. 
WHERE DO YOU WANT YOUR TROOPS LOCATED? 
INDICATE POSITION (М, Е, 5, W)?W 

AND HOW MANY TROOPS DO YOU WANT 
LOCATED AT THIS AREA? 600 

TOTAL BATTLES: 3 

THE ENEMY WAS AT POSITION: EAST 

AND LOCATED AT AREA: 3 

YOUR STATUS..... THIS BATTLE: 

TROOPS LOST: 550 

TROOPS THAT RETREATED: 0 

TROOPS THAT DESERTED: 12 

TROOPS LEFT TO BATTLE ARE: 18666 

PRESS ENTER/RETURN 

I WILL GIVE YOU THE ENEMY’S X AREA, THIS TIME, 
BUT YOU MUST SELECT THEIR POSITION. 
THEY’RE LOCATED AT AREA 9 BUT THIS IS ONLY 
TEMPORARY AND COULD QUICKLY CHANGE. 
WHERE DO YOU WANT YOUR TROOPS LOCATED? 
INDICATE POSITION (N,E,S,W)? E 

INPUT AREA? 9 

AND HOW MANY OF YOUR TROOPS DO YOU WANT 
LOCATED AT THIS AREA? 500 

WELL, YOU’VE ENTERED THE POSITION 

AND AREA CORRECTLY!! 

YOU CAPTURED AN AMOUNT OF 487 

ENEMY TROOPS, SENT OUT ON THIS BATTLE. 
BUT YOU COULD BE IN FOR ANOTHER ATTACK. 
TOTAL ENEMY CAPTURED OR LOST: 487 


CDD 


See Fig. 2-2 for the flow chart for this program. 
Program Listing 


1 DIM B$(100) 
9 CLS:PRINT:PRINT:PRINT TAB(10) ;"* GENERAL *” 
7 PRINT:PRINT 
10 INPUT"DO YOU NEED INSTRUCTIONS LISTED" ; A$ 
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12 IF A$=“YES” THEN GOSUB 700 

20 CLS:PRINT: E(5)=0:B=0: RANDOM 

23 PRINT TAB(8); "X POSITION IS BETWEEN 1 AND 10” 

30 REM YOUR TROOPS 

40 A=2E+04 

50 REM ENEMY TROOPS PER RUN 

60 E1=INT(500*RND(0)+50) 

70 IF E1 < 350 THEN 60 

75 E3=E1-INT(200*RND(0)+10): E2=E1 

80 REM SET ENEMY AREA, POSITION 

90 X=INT(10*RND (0)+1) 

95 Y=INT(4*RND(0)+1): ON Y GOTO 100,110,120, 130 

100 Y$="NORTH":GOTO 140 

110 Y$="EAST”:GOTO 140 

120 Y$="SOUTH”:GOTO 140 

130 Y$="WEST" 

140 I=INT(2*RND(0)+1) 

145 ON I GOTO 150,210 

150 PRINT 

155 PRINT“I WILL RELEASE THE ENEMY'S X AREA, THIS TIME,” 

160 PRINT“BUT YOU MUST SELECT THEIR POSITION.” 

170 PRINT"THEY'RE LOCATED АТ AREA”;X;“BUT THIS IS ON- 

LY” 

180 PRINT“TEMPORARY AND COULD QUICKLY CHANGE.” 

190 IF X < 5 THEN X=INT(10*RND(0)+1) 

200 GOTO 235 

210 PRINT 

215 PRINT'T WILL NOT RELEASE THE ENEMY'S AREA,” 

220 PRINT“BUT I WILL TELL YOU THEIR ATTACKING FORCES 
ARE” 

230 PRINT"GREATER THAN”; E3;“TROOPS; WATCH THE 

ENEMY!!” 

235 PRINT 

240 PRINT“WHERE DO YOU WANT YOUR TROOPS LOCATED?” 

250 PRINT“INDICATE POSITION (N,E,S, W”; 

255 INPUT B$ 

260 PRINT“INPUT AREA"; 

270 INPUT C 

280 PRINT“AND HOW MANY OF YOUR TROOPS DO YOU WANT” 

285 PRINT“LOCATED AT THIS AREA”; 

290 INPUT Al 

295 IF D2 > 0 AND Al > TL THEN PRINT“YOU HAVEN'T GOT THAT 
MANY TROOPS !!” 
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: GOTO 290 

300 КЕМ UPDATE 

320 B=B+1 

325 IF B$=LEFT$(Y$,1) AND C=X THEN 340 

330 GOSUB 1000: GOTO 460 

340 PRINT:PRINT"WELL, YOU'VE ENTERED THE POSITION” 

350 PRINT"AND AREA CORRECTLY!!” 

360 IF E2 > Al THEN 900 

370 E(5)=E2+E65) :IF E(5) >12E+03 THEN 960 

380 PRINT"YOU'VE CAPTURED AN AMOUNT ОЕ” El 

390 РКІМТ“ЕМЕМҮ TROOPS, SENT OUT ON THIS BATTLE.” 

400 PRINT“BUT YOU COULD BE IN FOR ANOTHER ATTACK.” 

405 PRINT"TOTAL ENEMY CAPTURED OR LOST:”;E5 

410 TL=TL+A1: GOTO 50 

460 PRINT: PRINT“TOTAL BATTLES:" ;B 

470 PRINT“THE ENEMY WAS АТ POSITION:” ;Y$ 

480 PRINT“AND LOCATED AT AREA:” ;X 

481 PRINT:PRINT“YOUR а чы p THIS BATTLE:" 

483 PRINT"TROOPS THAT RETREATED:” ;R1 

484 PRINT"TROOPS THAT DESERTED:” ;D 

485 PRINT"TROOPS LEFT TO BATTLE ARE:” ; TL 

486 ТЕ B$=LEFTS(Y$, 1) AND C=X AND E2 > A1 THEN 488 

487 GOTO 495 

488 PRINT:PRINT"GENERAL, THE REASON YOU LOST THIS 
BATTLE WAS -" 

490 PRINT'THE ENEMY FORCES WERE”; Е2;“ OUT- 
NUMBERING YOURS !" 

495 PRINT:INPUT"PRESS ENTER/RETURN”;X:CLS:IF TL < 50 
THEN 520 

900 R1=0:GOTO 50 

520 T=INT(4*RND(0)+1: ON Т GOTO 530, 560, 590 

530 PRINT:PRINT"YOU'VE LOST THIS BATTLE, HAD';B; 
"TRIES, AND” 


fr Å TIAN YR TITULE YTA TA SN An FY yyryyrrsy FTE YT A rTs Y MATT 
iU E JXIiN 1 VLN 1 COME ALL АННАН CLOOL, YYL EDR ісіглі LOO L 


... 90 LONG !” 

550 GOTO 620 

560 PRINT:PRINT"ALL I CAN SAY 15 .... MAYBE NEXT TIME 
YOU'LL WATCH" 

570 PRINT"THEIR ADVANCE MORE CLOSELY." 

575 PRINT“YOU’VE LOST THE BATTLE GENERAL AND ALL 
YOUR MEN." 
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576 
580 
590 


600 
610 
620 
630 
650 
660 
665 
670 
680 
690 
700 
710 
720 
730 
740 
750 


760 
765 


767 
770 


180 


790 


800 
810 


820 
825 


PRINT“TO BEAT IT ALL YOU HAD' ;B;"TRIES..... ” 
СОТО 620 

PRINT:PRINT"AWAY ... AWAY, ANCHORS THAT IS, MAYBE 
YOU SHOULD" 

PRINT“TAKE UP SAILING; AT LEAST YOU COULD TAKE A 
SWIM.” 

PRINT"SO LONG, PRIVATE !!" 

PRINT: PRINT 

PRINT"WOULD YOU LIKE TO BATTLE THE COMPUTER'S 
FORCES AGAIN”; 

INPUT A$ 

IF A$—"YES" THEN A=0:TL=0:TT=0:D=0:D2=0:GOTO 10 
PRINT 

PRINT“I DIDN'T THINK YOU COULD STAND ANOTHER" 
PRINT “BATTLE THIS EARLY IN THE DAY....” 

END 

PRINT 

PRINT“YOU ARE THE GENERAL OF AN ARMY, YOU'LL HAVE 
20,000” | 
PRINT"MEN UNDER YOUR TOTAL COMMAND. THE COM- 
PUTER WILL SELECT ” 

PRINT"AN AMOUNT OF ENEMY TROOPS PER RUN AND 
PLACE THEM IN” 

PRINT"A RANDOM AREA. THE COMPUTER WILL THEN DE- 
CIDE IF IT” 

PRINT"WILL OUTPUT THE ENEMY'S X AREA. THE X AREA 
WILL" 

PRINT"RANGE FROM 1 TO 10." 

PRINT:INPUT"TO CONTINUE INSTRUCTIONS PRESS 
ENTER/RETURN”;X:CLS 

PRINT: PRINT 

PRINT"YOU'LL PLACE YOUR MEN AT POSITIONS - NORTH, 
EAST” 

PRINT“SOUTH OR WEST, AND SELECT AN AREA (BETWEEN 
1 AND 10).” 

PRINT“YOU’LL THEN INPUT AN AMOUNT OF MEN TO 
PLACE” 

PRINT“AT THAT AREA.” 

PRINT'TF YOU MATCH THE ENEMY’S POSITION/AREA, 
THEY'LL BE” 

PRINT“IN FOR A SURPRISE. IF YOU MISS, YOU'LL LOSE А” 
PRINT"SIZEABLE AMOUNT ОЕ MEN.” 
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826 
827 


828 
830 
840 
900 
910 
915 
920 
925 
930 
950 
955 
960 
965 


970 


980 

990 

1000 
1005 
1010 
1020 
1030 
1040 
1050 
1060 
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PRINT 
PRINT“IF YOU CAPTURE 12,000 ENEMY TROOPS YOU WIN, 
IF YOUR” 
PRINT“TROOPS DECREASE BELOW 50—YOU'LL LOSE.” 
PRINT:INPUT“TO BEGIN PRESS ENTER/RETURN”;X:CLS 
RETURN 
R1=INT(30*RND(0)+5):IF R1 «20 THEN 900 
PRINT 
PRINT'TM SORRY. THE ENEMY'S TROOPS WERE”; E1 
PRINT"AND YOU ONLY SENT”;AL;"TO THAT AREA." 
PRINT"ONLY' ;RL"OF YOUR TROOPS RETREATED..... 2 
PRINT"AS THEY FIGURED THEY WERE OUT-NUMBERED.” 
TT=A1-R1:F=1:FOR I=1 TO 2500:NEXT 
GOSUB 1000:GOTO 460 
PRINT 
PRINT“GOOD SHOW GENERAL, YOU’VE FRACTURED THE 
ENTIRE” 
PRINT“ENEMY FORCE ОЕ” Е(5);“МЕМ AND YOUR TROOPS 
ARE” 
PRINT“RESTED UP AND READY TO GO AGAIN!! 
GOTO 620 

REM UPDATE 

IF F > 0 THEN 1040 

D=INT(10*RND(0)+5) 

TT=A1-INT(150*RND(0)) 

IF Al < 150 THEN TT=A1-INT(50*"RND(0)) 

A=A-TT-D 

TL=A 

F=0:D2=1:RETURN 


General 11 


The game where you and your opponent will battle one another 
until one of you loses all his men. You'll input where you want your 
men to be located, then the amount of men. The computer will 
scramble positions, areas and men, just in case your opponent was 
watching the video when you entered all the information. Then, 
with a little common sense (and mostly guessing), your opponent 
will station his men to try and match yours. If he misses he'll lose 
an undetermined amount of men. If he’s successful — you'll lose 
all men put at that position !! 
Good Luck..... Generals !! 


Sample Run 


THIS IS THE GAME OF GENERAL II, WHICH REQUIRES 

TWO PLAYERS. MOST INSTRUCTIONS WILL BE PRINTED AS 
YOU PROGRESS THROUGH THE GAME. IT WILL BEGIN BY 
ASKING YOUR LAST NAMES, THEN EACH OF YOU WILL INPUT A 
NUMBER BETWEEN 0 AND 5. THE ONE THAT HAS SELECTED 
THE NUMBER THAT MATCHES THE COMPUTER'S RANDOM 
NUMBER WILL GO FIRST..... 

PRESS ANY KEY 

PLAYER #1 LAST NAME? CUSTER 

PLAYER #2 LAST NAME? CHANCE 
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CUSTER WHAT IS YOUR GUESS (0-5)? 3 
CHANCE WHAT IS YOUR GUESS (0-5)? 5 


LET'S TRY IT AGAIN- 

CUSTER WHAT IS YOU GUESS (0-5)? 4 

CHANCE WHAT IS YOUR GUESS (0-5)? 1 

CUSTER GOES FIRST THIS GAME. 

GENERAL CUSTER, YOU HAVE 10000 MEN TO POSITION 

ON THE BATTLE FIELD. THE POSITIONS AND AREA CODES 
CAN BE USED MORE THAN ONCE. 

THESE ARE THE POSITIONS: 

NORTH 

EAST 

SOUTH 

WEST 

HERE ARE THE AREA CODES: 

101658675100 

PRESS ANY KEY TO CONTINUE 

GENERAL CUSTER WHEN YOU INPUT: 

INPUT THE LETTER ONLY FOR POSITIONS (N,E,S, W) 

THEN INPUT THE CODE NUMBER. 

THE COMPUTER WILL GO ON AUTOMATIC SCRAMBLE, SO YOUR 
OPPONENT WON'T KNOW WHERE THEY АКЕ AT. 

AFTER YOU INPUT FOUR POSITIONS AND CODES, 

YOU'LL INPUT FOUR DIFFERENT AMOUNTS OF MEN TO BE 
LOCATED AT THESE POSITIONS. THESE MEN WILL ALSO 
GO ON AUTOMATIC SCRAMBLE. 

INPUT THE POSITIONS AND CODES 


? W 

п 5 
ФЕ 

? 8 
? N 

?? 10 
25 

? 9 
PRESS ANY KEY TO CONTINUE 
W 5 
E 8 
М 10 
5 9 


IS THIS THE CORRECT LISTING? YES 
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SCRAMBLING....... 

SCRAMBLE COMPLETE. 

PRESS ANY KEY TO CONTINUE 

HOW MANY MEN DO YOU WANT AT POSITION 1 

? 300 

HOW MANY MEN DO YOU WANT AT POSITION 2 

2 375 

HOW MANY MEN DO YOU WANT АТ POSITION 3 

? 500 

HOW MANY MEN DO YOU WANT AT POSITION 4 

? 700 

THAT'S 1875 OF YOUR MEN... . I HOPE YOUR STRATEGY PAYS 
OFF. 

PRESS A KEY TO CONTINUE 

GENERAL CUSTER YOUR MEN HAVE BEEN POSITIONED AS RE- 
QUESTED 

TIME TO TELL GENERAL CHANCE TO READY HIS FORCES - THE 
BATTLE IS ABOUT TO BEGIN..... 

PRESS A KEY TO CONTINUE 

SIR... GENERAL CUSTER HAS POSITIONED HIS TROOPS IN 
FOUR DIFFERENT AREAS..... 

YOU MUST NOW INPUT TO THE COMPUTER WHERE YOU 
THINK THE BATTLE WILL TAKE PLACE (INPUT POSITIONS 
AND AREAS). THEIR WILL BE FOUR BATTLES PER SET. 
WHICH POSITION AND AREA SHALL YOUR TROOPS 

BE STATIONED. 

? W 

928 

VERY WELL GENERAL, HOW MANY TROOPS SHALL ВЕ 

SENT TO THAT AREA? 175 

DUMMY..... THAT WASN'T ENOUGH ! ! 

SORRY GENERAL. . . . I HATE TO TELL YOU THIS BUT YOU'VE 
MISCALCULATED YOUR OPPONENT. HE HAS JUST CAPTURED 35 
OF YOUR TROOPS..... 

WHICH POSITION AND AREA SHALL YOUR TROOPS 

BE STATIONED. 

° E 

?? 5 

VERY WELL GENERAL, HOW MANY TROOPS SHALL BE 

SENT TO THAT AREA? 400 

SORRY GENERAL. ... I HATE TO TELL YOU THIS BUT YOU'VE 
MISCALCULATED YOUR OPPONENT. HE HAS JUST CAPTURED 
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394 OF YOUR TROOPS..... 

WHICH POSITION AND AREA SHALL YOUR TROOPS 

BE STATIONED. 

25 

276 

VERY WELL GENERAL, HOW MANY TROOPS SHALL BE 

SENT TO THAT AREA? 1000 

WELL GENERAL SEEMS YOU HAD THE BETTER HAND ON THIS 
BATTLE. YOU OVER TOOK THE OTHER FORCES AND GOT A 
TOTAL OF 700 TROOPS... . CONGRATULATIONS ! 

WHICH POSITION AND AREA SHALL YOUR TROOPS 

BE STATIONED. 

? N 

?? 10 

VERY WELL GENERAL, HOW MANY TROOPS SHALL BE 

SENT TO THAT AREA? 400 

SORRY GENERAL. . . . I HATE TO TELL YOU THIS BUT YOU'VE 
MISCALCULATED YOUR OPPONENT. HE HAS JUST CAPTURED 
320 

OF YOUR TROOPS..... 

NUMBER OF BATTLES COMPLETED: 4 

NUMBER OF ENEMY TROOPS CAPTURED: 700 

NUMBER OF YOUR TROOPS LOST OR CAPTURED: 749 
NUMBER OF YOUR TROOPS DESERTED: 14 

WELL GENERAL CUSTER LOOKS LIKE IT’S GENERAL CHANCE'S 
TURN TO TAKE OVER THE CONTROLS AND PLACE HIS MEN. 
GENERAL CUSTER HAS 9300 TROOPS LEFT. 

GENERAL CHANCE HAS 9237 TROOPS LEFT. 

PRESS A KEY TO CONTINUE 

GENERAL CHANCE YOU HAVE 9237 MEN TO POSITION 

ON THE BATTLE FIELD. 

STOP 


Depending on how many men you or your opponent put into a 
battle and lose, von сота hattle for anite awhile This sample run 
only contained 4 battles, the game doesn’t end until either you or 
your opponent have 0 (zero) men left. Souse somestrategy when 
placing your men!! See Fig. 2-3 for the flowchart for this program. 


Program Listing 


800 CLS:DIM Р%(100) 
810 PRINT:PRINT“THIS IS THE GAME OF GENERAL II, WHICH 
REQUIRES” 
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PRINT 
INSTRUCTIONS 


SET AMOUNT 
OF TROOPS 


INPUT NAMES 


INPUT 
Р1-Р2 


= A$ GOES FIRST 


6 B$ GOES FIRST 


NO 


MORE 
INSTRUCTIONS 


INPUT POSITIONS 
AND AREAS 


PRINT POSITIONS 
AND AREAS 
AS OR B$ 
РА = 1 INPUT АВР 
R=0 
INPUT AMOUNT OF MEN 


PTS = P$ 


PRINT YES 


Fig. 2-3. The flowchart for General Il. 


820 PRINT"TWO PLAYERS. MOST INSTRUCTIONS WILL BE 
PRINTED AS” 

830 PRINT"YOU PROGRESS THROUGH THE GAME. IT WILL 
BEGIN BY” 


840 
850 
860 


870 
880 
890 
900 
990 
995 
1000 
1010 
1020 
1030 


1040 
1050 


1060 
1070 
1080 
1085 
1090 
1100 
1105 


1110 
1120 


1125 


1130 
1135 


1140 
1145 
1150 
1155 
1160 
1170 
1180 
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PRINT"ASKING YOUR LAST NAMES, THEN EACH OF YOU 
WILL INPUT A” 

PRINT“NUMBER BETWEEN 0 AND 5. THE ONE THAT HAS 
SELECTED” 

PRINT"THE NUMBER THAT MATCHES THE COMPUTER'S 
RANDOM” 

PRINT“NUMBER WILL GO FIRST..... å 
PRINT:PRINT“PRESS ANY KEY” 

N$=INKEY$:IF N$=" " THEN 890 

CLS:PRINT 

T=10000: TT=10000: C$— "NUMBER" 

IF TR >0 THEN 1040 

REM GAME FOR TWO PLAYERS 

REM INPUT PLAYERS LAST NAME 

INPUT PLAYER # 1 LAST МАМЕ:”; A$ 

INPUT“PLAYER # 2 LAST NAME”;B$ 


REM NOW GET RANDOM NUMBER 
REM TO SET FIRST PLAYER 


N-INT(6*RND(0)) 

PRINT A$;" WHAT IS YOUR GUESS (0-5).”: 

INPUT P1 

PRINT 

PRINT B$;" WHAT IS YOUR GUESS (0-5)"; 

INPUT P2 

IF P1 <> N AND P2 <> PRINT“LET’S TRY AGAIN-”: GOTO 
1070 

IF РІ < > N THEN PRINT B$;"GOES FIRST THIS 
GAME.”:GOTO 1125 

IF P2 < > N THEN PRINT A$;"GOES FIRST THIS 
GAME.”:R=1 

PRINT:IF R=1PRINT“GENERAL”:A$;“, YOU HAVE”;T;: 
GOTO 1135 

PRINT“GENERAL ”;B$;“, YOU HAVE”: TT: 

PRINT“MEN TO POSITION” 


TOTOTATCTUCTZTVNT "nv МҮ У И ата УА Ра ARTEN 
X ANLLN £ WL 1 111) DAE Тіл PILLU. LING I UOlLilViNo AIND 


AREA CODES” 

PRINT“CAN BE USED MORE THAN ONCE.” 
REM GET POSITIONS 

PRINT“THESE ARE THE POSITIONS:” 

FOR I=1 TO 4: READ РФ) :NEXT 

DATA NORTH, EAST, SOUTH, WEST 


REM GET AREA CODES 


1185 
1190 
1200 
1205 
1210 
1220 
1230 
1240 
1250 
1260 
1265 
1270 
1275 
1280 
1284 


1285 
1290 


1300 
1310 
1320 


1330 


1340 
1350 
1360 


1370 
1380 
1385 
1390 
1400 
1410 
1420 


1430 
1440 
1460 
1470 


X=0 

C=INT(10*RND(0)+1) 

C(X)=C 

X=X+1:IF X < > 10 THEN 1190 

REM PRINT POSITIONS—CODES 

FOR I=1 TO 4 

PRINT РФ) 

NEXT: PRINT 

PRINT“HERE ARE THE AREA CODES:” 

FOR I=1 TO 10:PRINT C(D" ”;:NEXT 

GOSUB 1500 

IF R=1 PRINT"GENERAL ”;A$ СОТО 1280 
PRINT"GENERAL ”;B$; 

PRINT"WHEN YOU INPUT:” 

PRINT"INPUT THE LETTER ONLY FOR POSITIONS 
(N, E,S, W)" 

PRINT"THEN INPUT THE CODE NUMBER." 

PRINT"THE COMPUTER WILL GO ON AUTOMATIC 
SCRAMBLE, SO YOUR" 

PRINT"OPPONENT WON'T KNOW WHERE THEY ARE AT." 
PRINT"AFTER YOU INPUT FOUR POSITIONS AND CODES" 
PRINT“YOU’LL INPUT FOUR DIFFERENT AMOUNTS OF 
MEN TO BE” 

PRINT“LOCATED AT THESE POSITIONS. THESE MEN WILL 
ALSO” 

РКІМТ“СО ON AUTOMATIC SCRAMBLE.” 

PRINT: PRINT“INPUT THE POSITIONS AND CODES” 

FOR I=1 TO 4 


INPUT PT$(1),AC() 

NEXT 

GOSUB 1500 

FOR I=1 TO 4:PRINT PT$(D,AC(D: NEXT 

PRINT: PRINT'IS THIS THE CORRECT LISTING"; 

INPUT Z$ 

IF 7% < > “YES” THEN PRINT“LET’S TRY IT AGAIN, 
THEN.”:GOTO 1350 

REM SCRAMBLE POSITIONS AND AREAS 

PRINT: PRINT“SCRAMBLING....... ш 
PT$(6)=PT$(3):PT$(8)=PT$(4):PT$(7)=PT$(2):PT$(9)=PTS(1) 
AC(6)=AC(3): AC(8)=AC(4): АС(7)--АС(2): AC(9)=AC(1) 
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1490 


1495 
1500 
1510 
1520 
1530 
1540 
1550 
1555 
1556 


1597 
1565 


1570 


1580 
1590 
1595 
1600 


1610 
1620 


1625 
1630 
1640 
1645 
1650 


1660 
1670 


1680 
1690 
1700 
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FOR I=1 TO 1500:NEXT:PRINT“SCRAMBLE COM- 
PLETE.”:GOSUB 1500 

GOTO 1530 

PRINT:PRINT“PRESS A KEY TO CONTINUE” 
X$=INKEY$:IF X$=" " THEN 1510 

CLS:PRINT: RETURN 

FOR І-1 TO 4 

PRINT“HOW MANY MEN DO YOU WANT AT POSITION"; I 
INPUT M(D 

NN=M()+NN 

IF R=0 AND NN > TT THEN PRINT"YOU HAVEN'T THAT 
MANY TROOPS GENERAL ”;B$:NN=0:GOTO 1530 

IF R=1 AND NN > Т THEN PRINT“YOU НАУЕМТ THAT 
MANY TROOPS GENERAL ”; A$:NN=0:GOTO 1530 
M(6)=M(3):M(8)=M(4):M(7)=M(2):M(9)=M(1): REM 
SCRAMBLE MEN 


PRINT: PRINT“THAT’S”;NN;“OF YOUR MEN . . .”;:IF NN 
>500 THEN PRINT “I HOPE YOUR STRATEGY PAYS OFF.” 
GOSUB 1500 


IF R=1 THEN PRINT“GENERAL ”;A$;:GOTO 1600 
PRINT"GENERAL ”; В6; 

PRINT “YOUR MEN HAVE BEEN POSITIONED AS RE- 
QUESTED." 

IF R < > 1 GOTO 1625 

PRINT"TIME TO TELL GENERAL ”;B$;* TO READY HIS 
FORCES—THE” :GOTO 1630 | 
PRINT"TIME TO TELL GENERAL ”;A$;“ TO MAN THE 
CONTROLS—THE” 

PRINT"BATTLE IS ABOUT TO ВЕСІМ..... 

GOSUB 1500:IF R < > 1 GOTO 1650 

IF R=1 PRINT'SIR . . . GENERAL ”;A$;" HAS POSITIONED 
HIS TROOPS IN”:GOTO 1660 

PRINT'SIR . . . GENERAL ”;B$;" HAS POSITIONED HIS 
TROOPS IN” 

PRINT"FOUR DIFFERENT AREAS... .” 

PRINT: PRINT“ YOU MUST NOW INPUT TO THE COMPUTER 
WHERE YOU” 

PRINT“THINK THE BATTLE WILL TAKE PLACE (INPUT 
POSITIONS” 

PRINT“AND AREAS). THEIR WILL BE FOUR BATTLES PER 
SET.” 

S=0:REM S=SET 


1705 
1710 


1720 
1730 
1740 


1750 
1760 
1765 


1770 
1780 
1790 
1800 


1810 


1815 
1820 


1825 


1830 
1835 
1840 
1850 


1860 


1870 


1880 
1885 
1890 
1895 
1900 
1910 
1920 
1930 
1940 


FOR I=6 TO 9 

PRINT: PRINT“ WHICH POSITION AND AREA SHALL YOUR 
TROOPS” 

PRINT“BE STATIONED.” 

INPUT S$,AR 

PRINT“VERY WELL GENERAL, HOW MANY TROOPS SHALL 
BE” 

PRINT“SENT TO THAT AREA"; 

INPUT F 

IF F < M() THEN PRINT“DUMMY.... THAT WASN'T 
ENOUGH !!” 

S=5+1 

FOR M=1 TO 2000:NEXT: CLS: PRINT 

IF S$ < > PT$d) OR AR < > AC(D THEN 1840 
PRINT"WELL GENERAL SEEMS YOU HAD THE BETTER 
HAND ON THIS” 

PRINT“BATTLE. YOU OVERTOOK THE OTHER FORCES 
AND GOT A” 

IF F <М() THEN M(D=0 

PRINT“TOTAL OF"M(D;"TROOPS....'"5IF MD > 30 
PRINT“CONGRATULATIONS !!” 

IF M()=0 PRINT"SIR YOUR FORCES WERE LOWER THAN 
НІ5.. THAT’S THE REASON YOU CAME UP WITH 0 
CAPTURED... .” 

TL=M()D+TL:NEXT:IF 5 < > 4 GOTO 1710 

IF 5=4 GOTO 1900 

F(D=INT(F*RND(0)+10): DR=INT(10*RND(0):DS=DR+DS 
PRINT"SORRY GENERAL... I HATE TO TELL YOU THIS 
BUT YOU'VE” 

PRINT“MISCALCULATED YOUR OPPONENT. HE HAS JUST 
CAPTURED”; FØD) 

PRINT“OF YOUR TROOPS... ”;:IF 1<3 PRINT“WATCH 
YOUR MOVES !” 

IF R < > 1 THEN T=T-FQ):YY=F(D+YY:GOTO 1890 
TT=TT-F(D:YT=F(D+YT 

IF S=4 THEN 1900 

NEXT:IF S < > 4 GOTO 1710 

TB=S+TB:REM TB=TOTAL BATTLES 

REM OUTPUT STATUS OF BATTLES 

PRINT:PRINT C$;“ OF BATTLES COMPLETED:”; TB 
PRINT С%; OF ENEMY TROOPS CAPTURED:”; TL 

PRINT C$;“ OF YOUR TROOPS LOST OR CAPTURED:”; 
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1945 
1950 
1955 
1960 
1970 
1990 
1995 
2000 


2010 
2020 
2030 
2040 
2050 
2055 
2060 
2070 
2080 
2090 
2100 


2110 
2120 


2130 
2140 
2150 
2160 


2170 


2180 


2190 


40 


IF R < > 1 PRINT YY:GOTO 1955 

PRINT YT 

PRINT С%“ OF YOUR TROOPS DESERTED:”;DS 

IF К< > 1 THEN T=T-YY-DS+YY:TT=TT-TL:GOTO 1990 
TT=TT-YT-DS+YT:T=T-TL 

IF T < LOR TT <1 GOTO 2070 

IF R=0 GOTO 2030 

PRINT: PRINT“WELL GENERAL ”;A$;"LOOKS LIKE IT'S 
GENERAL "; B$;" “5” 

IF R=1 THEN R=0 

GOTO 2040 

PRINT: PRINT“WELL GENERAL ”;B$;" LOOKS LIKE IT'S 
GENERAL ”; A$;" 'S":IF R=0 THEN R=1 

PRINT“TURN TO TAKE OVER THE CONTROLS AND PLACE 
HIS MEN.” 

PRINT"GENERAL ” A$;“ HAS"; T;"TROOPS LEFT.” 
PRINT"GENERAL ”;B$;" HAS”; TT;“TROOPS LEFT.” 
GOSUB 1500: RESTORE: NN=0: TL=D: YY=0: YT =0: DS =0: 


CANTO 31008 


Қақ; А Д2 


IF T < 0 THEN 2090 

IF TT < 0 THEN 2120 

PRINT: PRINT“SORRY GENERAL ”;A$;" YOUR OUT OF 
TROOPS, THE BATTLES” 

PRINT"ARE OVER... UNLESS YOU AND GENERAL ”;B$;“ 
WOULD LIKE TO” 

PRINT"GO ANOTHER SET OR 50”;:СОТО 2150 

PRINT: PRINT“SORRY GENERAL ”;B$;" THAT'S THE END 
OF THIS GAME, YOUR” 

PRINT"OUT OF TROOPS... MAYBE YOU AND GENERAL 
^5 A$;" WOULD LIKE” 

PRINT"TO SET UP SOME MORE BATTLES”; 

INPUT Q$ 

IF RIGHT $(Q$, 1) =“S” THEN RESTORE: CLS: NN=0: 
TL=0: YT=0: DS=0: TR=1: GOTO 990 

PRINT 

PRINT“I FIGURED YOU FOR A BETTER CHICKEN 
THAN THAT t!" 

END 


Enemy Waters 


You and your computer are in an experimental sub, your 
mission—destroy enemy ships. You will input the commands to 
fire the torpedos; the computer will print damage (if any), compute 
distance to ship, and if torpedo does miss the computer will tell you 
why. 

Fasten the hatch. . . . we're about to dive! 


Sample Run 


sok KE ENEMY WATERS жеке 
DO YOU NEED INSTRUCTIONS? YES 
IN THIS SIMULATION YOU AND THE COMPUTER 
ARE IN CONTROL OF AN EXPERIMENTAL SUB. 
TORPEDOS WILL BE DETONATED BY TIMERS 
INSTEAD OF IMPACT. 
YOU CAN SET THE TIMERS FROM 2 TO 9 SECONDS. 
THE REASON FOR THE SHORT INTERVALS? 
HIGH SPEED TORPEDOS. 
TO EXIT PRESS ENTER/RETURN? 
JUST REMEMBER..... 
YOUR TORPEDOS MUST EXPLODE WITHIN 25 YARDS. 
MEANING THE FARTHER AWAY THE SHIP THE LONGER 
INTERVAL YOU'LL NEED. THE COMPUTER WILL PRINT YOUR 
AMOUNT OF TORPEDOS ON BOARD. 
WHEN THE COMPUTER OUTPUTS TO YOU THE FORMAT WILL BE 
COMPUTER: (MESSAGE TO YOU) 
TO EXIT PRESS ENTER/RETURN? 
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***** INPUT COMMANDS ***** 

(1) FIRE TORPEDO ONE - 200 Ү.Р.5. 

(2) FIRE TORPEDO TWO - 250 Y.P.S. 

(3) FIRE TORPEDO THREE - 300 Y.P.S. 

(4) FIRE TORPEDO FOUR - 350 Y.P.S. 

(5) AMOUNT OF TORPEDOS LEFT 

Y.P.S. = YARDS PER SECOND 

TO EXIT PRESS ENTER/RETURN . .. .? 

YOU ARE NOW BATTLE READY, AND IN ENEMY TERRITORY. 
COMPUTER: OUTPUT AMOUNT OF TORPEDOS IN 5 SECONDS. 
COMPUTER: 15 TORPEDOS FOR THIS MISSION. 

COMPUTER: RADAR SHOWS ENEMY SHIP AT 2658 YARDS. 
SHIP NOW AT 2484 YARDS AND CLOSING. 

SELECT COMMAND? 4 

SET TIMER FOR HOW MANY SECONDS? 7.1 

FIRING TORPEDO #4..... 

AT 300 YARDS PER SECOND. 

COMPUTER: OUTPUT STATUS OF TORPEDOIN7.1SECONDS.... 
COMPUTER: 

TORPEDO HAS MADE HEAVY DAMAGE TO SHIP.... 

IT'S BEGINNING TO SINK ! ! 

COMPUTER: LARGE TANKER AT 2322 YARDS . ... 

SELECT COMMAND? 3 

SET TIMER FOR HOW MANY SECONDS? 7 

FIRING TORPEDO #3..... 

AT 300 YARDS PER SECOND. 

COMPUTER: OUTPUT STATUS OF TORPEDO IN 7 SECONDS. 
COMPUTER: 

YOUR TIMER SETTING WAS OFF, TORPEDO EXPLODED 
PREMATURELY... NOTE DISTANCE TO SHIP BEFORE SETTNG 
TIMER. TORPEDO EXPLODED 222 YARDS THIS SIDE OF SHIP. 
DISTANCE TO SHIP CLOSING, NOW AT 2134 YARDS. 

SELECT COMMAND? 3 

SET TIMER FOR HOW MANY SECONDS? 7 

FIRING TORPEDO #3..... 

AT 300 YARDS PER SECOND. 

COMPUTER: OUTPUT STATUS OF TORPEDO IN 7 SECONDS. 
COMPUTER: 

YOUR TIMER SETTING WAS OFF, TORPEDO EXPLODED 
PREMATURELY... NOTE DISTANCE TO SHIP BEFORE SETTING 
TIMER. TORPEDO EXPLODED 34 YARDS THIS SIDE OF SHIP. 
DISTANCE TO SHIP CLOSING, NOW AT 1932 YARDS. 
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SELECT COMMAND? 2 

SET TIMER FOR HOW MANY SECONDS? 8 

FIRING TORPEDO #2..... 

AT 250 YARDS PER SECOND. 

COMPUTER: OUTPUT STATUS OF TORPEDO IN 8 SECONDS. 
COMPUTER: 


PRINT 
INSTRUCTIONS 


PRINT 
COMMANDS 
SET AMOUNT OF 
TORPEDOS 


SET YARDS TO 
ENEMY SHIP 


UPDATE YARDS 
MESSAGE 


INPUT COMMAND 


INPUT TIME INTERVAL 


<> 


) 


COMPUTE YES! SELECT 

ces Y*X DAMAGE 
PRINT PRINT 

«СЕр- НЕА5ОМ DAMAGE 


YES 
NS YES 
PRINT AMT. |YES 
TORPEDOS L ND 
LEFT - 
: YES 
YES TE 
NO 


ANOTHER 
MESSAGE 


MISSION 
SUCCESSFUL 


OUT OF 
TORPEDOS 


E 


Fig. 2-4. The flowchart for Enemy Waters. 


CHECK YOUR TIMING RATE... . THAT TORPEDO HAS JUST 
PASSED UP THE SHIP AND EXPLODED 68 YEARS PAST 

IT !! KEEP THIS UP AND YOU'LL END UP ON 

THE BOTTOM WITH ALL THE FISHES..... 

SHIP NOW AT 1785 YARDS, CLOSING FAST. 

SELECT COMMAND? 5 

AMOUNT OF TORPEDOS LEFT: 11 

SELECT COMMAND? 3 

SET TIMER FOR HOW MANY SECONDS? 6 

FIRING TORPEDO #3..... 

AT 300 YARDS PER SECOND. 

COMPUTER: OUTPUT STATUS OF TORPEDO IN 6 SECONDS. 
COMPUTER: TORPEDO HAS BLOWN APART MAIN DECK OF SHIP. 
ANOTHER SHIP AT 2776 YARDS..... 

STOP 


As you can see from the sample run, you do have to come 
within 25 yards to destroy the ship! I almost forgot to mention one 
other thing, don’t let the ship come within 300 yards of your sub. If 
you do??? Try it and find out! See Fig. 2-4 for the flowchart for this 
program. 


Program Listing 


10 CLS:PRINT TAB(8) ; “***** ENEMY WATERS Te 

15 PRINT:PRINT: PRINT 

20 PRINT TAB (8);“DO YOU NEED INSTRUCTIONS”; 

30 INPUT A$ 

40 IF A$="YES” THEN 60 

45 IF A$="NO" THEN CLS: PRINT: PRINT: GOTO 130 

50 PRINT“I AM NOT PROGRAMMED TO RESPOND TO THAT 
ANSWER ...":GOTO 20 

60 CLS:PRINT 

70 PRINT"IN THIS SIMULATION YOU AND THE COMPUTER" 

80 PRINT"ARE IN CONTROL OF AN EXPERIMENTAL SUB." 

92 PRINI"IORPEDUS WILL BE DETONATED BY TIMERS” 

93 PRINT'INSTEAD OF IMPACT.” 

94 PRINT"YOU CAN SET THE TIMER FROM 2 TO 9SECONDS." 

95 PRINT“THE REASON FOR THE SHORT INTERVALS ?" 

96 PRINT“HIGH SPEED TORPEDOS.”:GOSUB 127 

97 PRINT“JUST REMEMBER. ...." 

98 PRINT"YOUR TORPEDOS MUST EXPLODE WITHIN 25 
YARDS." 
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99 


100 


110 
120 


125 


127 


130 
140 
150 
160 
170 
175 
180 
210 
215 
220 


230 


239 
240 
245 
246 
250 
270 
280 
300 
310 


400 
410 
420 
425 
430 
432 
433 


РРІМТ“МЕАМІМС THE FARTHER AWAY THE SHIP THE 
LONGER” 

PRINT“INTERVAL YOU’LL NEED. THE COMPUTER WILL 
PRINT YOUR” 

PRINT“AMOUNT OF TORPEDOS ON BOARD.” 
PRINT“WHEN THE COMPUTER OUTPUTS TO YOU THE 
FORMAT WILL BE” 

PRINT"COMPUTER: (MESSAGE TO YOU)”:GOSUB 
127:GOTO 130 

PRINT:INPUT"TO EXIT PRESS ENTER/RETURN.... 
2X: CLS: PRINT: PRINT: RETURN 

PRINT“**** INPUT COMMANDS *****” 

PRINT“(1) FIRE TORPEDO ONE - 200 Y.P.S.” 

PRINT“(2) FIRE TORPEDO TWO - 250 Y.P.S.” 

PRINT"(3) FIRE TORPEDO THREE - 300 Y.P.S." 

PRINT“(4) FIRE TORPEDO FOUR - 350 Ү.Р.5.” 

РРІМТ“(5) AMOUNT OF TORPEDOS LEFT" 

PRINT"Y.P.S. = YARDS PER SECOND." 

GOSUB 127 

D=0 

PRINT“YOU ARE NOW BATTLE READY, AND IN ENEMY 
TERRITORY.” 

PRINT“COMPUTER: OUTPUT AMOUNT OF TORPEDOSIN 5 
SECONDS.” 

FOR I=1 TO 1500:NEXT 

REM AMOUNT OF TORPEDOS 

T=INT(30*RND(0) +5) 

IF T < 15 THEN T=15 

PRINT"COMPUTER: “;T;“TORPEDOS FOR THIS MISSION.” 
PRINT 

REM Y= AMOUNT OF YARDS TO ENEMY SHIP 
Y=INT(2900*RND(0)+29) :IF Y <2400 THEN 300 
PRINT"COMPUTER: RADAR SHOWS ENEMY SHIP AT 
' Y;"YARDS." 

FOR I=1 TO 1500: NEXT 

Y=Y-INT(500*RND(0)+50) 

PRINT“SHIP NOW AT”; Y;“YARDS AND CLOSING.” 
PRINT“SELECT COMMAND”; 

IF T < =1 THEN 650 

IF D > THEN 790 

IF Y < 300 THEN 1500 


45 


46 


INPUT N:IF N < 10RN > 5 THEN PRINT“SIR, THIS SUB NOT 
EQUIPPED WITH COMMAND”;N:GOTO 425 

ON М GOTO 450, 500,550,610, 740 

GOSUB 1200 

PRINT“FIRING TORPEDO # 5N;"..... “T=T-1 
PRINT“AT 200 YARDS PER SECOND.” 

GOSUB 1060:CLS 

PRINT“COMPUTER:” 

M=(TI*200) 

GOTO 1300 

GOSUB 1100 

GOTO 700 

GOSUB 1200:PRINT“FIRING TORPEDO f? 5N;"..... "T-T-1 
PRINT"AT 250 YARDS PER SECOND.” 

GOSUB 1060: CLS 

PRINT"COMPUTER:" 

M-(TI*250) 

GOTO 1310 

GOSUB 1100:TF 1-3 OR T=4 THEN 425 

GOTO 580 

GOSUB 1200: PRINT"FIRING TORPEDO #";№;“..... “:T=T-1 
PRINT“AT 300 YARDS PER SECOND.” 

M-(TI*300) 

GOTO 1310 

GOSUB 1100:IF I23 ОК I-4 THEN 425 
PRINT“COMPUTER: LARGE ТАМКЕК..... " 


GOSUB 1400 
PRINT"CLOSING FAST AT%Y;"YARDS ..... ":GOTO 425 
GOSUB 1200: PRINT"FIRING TORPEDO #”;N;”..... "S Tz-T-1 


PRINT"AT 350 YARDS PER SECOND." 

GOSUB 1060: CLS 

PRINT"COMPUTER:" 

M=(TI*350) 

GOTO 1310 

GOSGUD 110017 190 OR 1=4 THEN 425 

GOTO 700 

PRINT: PRINT“COMPUTER:” 

PRINT"YOU АКЕ OUT ОЕ TORPEDOS..... д 
PRINT“BUT YOU HAVE DESTROYED ОЕ DAM- 
AGED”; D; “SHIPS.” 


PRINT“RETURN TO PORT BEFORE YOU ARE DEPTH 
CHARGED..... 


690 
700 


710 


720 
730 
740 


790 
800 


810 
820 
830 


840 
850 
860 


870 
880 


890 


900 
910 
920 
930 
940 
1060 
1065 


1070 
1075 
1080 
1090 
1100 
1110 


1120 
1122 


GOTO 810 

PRINT:PRINT"LARGE DESTROYER CLOSING АТ”Ұ; 
“YARDS, EQUIPPED” 

PRINT“ WITH ARMOR PLATING AND LOADED WITH DEPTH 
CHARGES.” 

PRINT"DON'T LET THIS ONE GET TOO CLOSE..... 4 
СОТО 425 

PRINT“AMOUNT OF TORPEDOS LEFT:”";T:PRINT:GOTO 
425 

PRINT: PRINT"COMPUTER:" 

PRINT"RADAR SHOWS NO ENEMY SHIPS 
APPROACHING.... .” 

PRINT ма MISSION SUCCESSFUL." 
PRINT:PRINT"COMPUTER:" 

PRINT"WOULD YOU LIKE TO DESTROY SOMEMORE SHIPS 
TODAY"; 

INPUT A$ 

IF A$="YES" THEN 10 

PRINT:PRINT"WELL THEN... SEE YOU NEXT TIME ! I” 
END 


REM TOO FAR 

PRINT"CHECK YOUR TIMING RATE.... THAT TORPEDO 
HAS JUST" 

PRINT"PASSED UP THE SHIP AND EXPLODED”; M-Y); 


"YARDS PAST" 

PRINT"IT ! ! KEEP THIS UP AND YOU'LL END UP ON" 
PRINT"THE BOTTOM WITH ALL THE FISHES..... T 
Y=Y-INT(200*RND(0) +50) 

PRINT“SHIP NOW AT"; Y;"YARDS, CLOSING FAST" 

GOTO 425 

PRINT: PRINT 

PRINT"COMPUTER: OUTPUT STATUS OF TORPEDO 
IN”; TI "SECONDS." 

FOR TT=1 TO 250 

FOR TN=1 TO TI:NEXT TN, ТТ 

P=INT(10*RND(0)+1):IF P <2 AND TI < 2 THEN 1450 
RETURN 

D=D+1:1=INT(4*RND(0)+1): ONI GOTO 1110,1130,1150,1170 
PRINT"TORPEDO HAS SEVERELY DAMAGED SHIP.... 
INOPERABLE.” 

IF Y < 500 GOSUB 1400 


Y¥=Y-100+INT(30*RND(0)+10) 
47 


1125 
1130 


1135 
1140 
1144 
1145 
1150 


1155 
1160 


1165 
1170 


1172 
1175 
1180 


1200 
1210 
1220 


1230 
1250 


1260 


1270 


1275 
1280 
1285 
1290 


1300 
1310 
1320 
1330 
1340 
1400 
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RETURN 

PRINT"TORPEDO #”;N;“HAS MADE HEAVY DAMAGE TO 
SHIP på 7 

PRINT"IT'S BEGINNING TO SINK !!" 

IF Y « 500 GOSUB 1400 

Y=Y-200+INT(40*RND(0) +10) 

RETURN 

PRINT“TORPEDO HAS BLOWN APART MAIN DECK OF 
SHIP.” 


IF Y < 500 GOSUB 1400 
Y=Y-175+INT(20*RND(0) +10): PRINT"ANOTHER SHIP 


AF SY YARDS ..... ” 

RETURN 

PRINT“TORPEDO HAS COMPLETELY BLOWN APART SHIP. 
ANOTHER” 

IF Y <500 GOSUB 1400 

Y=Y-25+INT(50*RND(0) +5) 

PRINT"SHIP CLOSING ON YOU АТ”; Y;"YARDS ..... i 
RETURN 

PRINT"SET TIMER FOR HOW MANY SECONDS"; 

INPUT T1 

IF TI 29 THEN PRINT"CAN'T RESPOND -- TIMING RATE TO 
HIGH...” :GOTO 1200 

RETURN 

PRINT"YOUR TIMER SETTING WAS OFF, TORPEDO 
EXPLODED" 

PRINT"PREMATURELY... NOTE DISTANCE TO SHIP BE- 
FORE SETTING" 

PRINT"TIMER. TORPEDO EXPLODED";(Y-M); "YARDS 
THIS SIDE OF SHIP." 

:REM NOT FAR ENOUGH 

IF Y «500 GOSUB 1400 

IF Y «2000 THEN Y=Y-INT(100*RND(0) +30) 

IF Y >2000 THEN Y=Y-INT(275*RND(0)+50) 
PRINT"DISTANGE ТО SHIP CLOSING, NOW À1;Y; 
YARDS." 

GOTO 425 

IF ABS(Y-M) >0 AND ABS(Y-M) «31 THEN 1340 

IF (Y-M) « 0 THEN 1250 

IF ABS(Y-M) >31 THEN 870 

ON N GOTO 495,535,575,645 

Y=(2800-INT(50*RND(O)+5)) 


1410 
1450 
1460 


1470 


1480 


1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1590 
1600 


RETURN 
PRINT: PRINT“COMPUTER:” 
PRINT"CAN'T REPORT ANY DAMAGE TO THE ENEMY SHIP 


PRINT"THE TORPEDO YOU JUST FIRED CAUGHT IN THE 
TUBE” 

PRINT“AND BLEW OUR SUB ALL OVER THE OCEAN FLOOR 
111” 

GOTO 820 

FOR I=1 TO 1000:NEXT 

CLS:PRINT 

PRINT“WE’RE SINKING !!" 

PRINT“HEAVY WATER DAMAGE COMING THROUGH” 
PRINT“ENGINE ROOM !!” 

PRINT: PRINT“SHIP WAS LESS THAN”; Y;“YARDS,” 
PRINT"AND DEPTH CHARGED US !!” 
PRINT“BULB....BULB....BULB..... " 

FOR 1=1 ТО 2500:NEXT 

CLS:PRINT:GOTO 820 
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Tank Assault 
\ Møt с MN: 
s — ИКЕ ET a 


You and the computer will battle one another. You must set de- 
grees of your cannon to hit the target. If you miss the target the 
computer’s tank will take a shot at you. 

Sample Run 


** TANK ASSAULT ** 
DO YOU NEED INSTRUCTIONS PRINTED? YES 
THIS IS THE GAME OF TANK ASSAULT IN WHICH YOU 
AND THE ENEMY (YOUR COMPUTER) WILL BATTLE ONE 
ANOTHER. BEFORE YOU FIRE A SHELE YOULL INPUT 
THE DEGREES TO WHICH YOUR CANNON WILL BE SET. 
AFTER YOU FIRE (IF YOU MISS) THE COMPUTER WILL FIRE 
AT YOUR TANK. YOU’LL BOTH START WITH AT LEAST 20 
SHELLS. IF THE RANDOM TARGET SELECTED IS NOT 
AN ENEMY TANK, HAVE NO FEAR: THE COMPUTER'S TANK 
WILL STILL FIRE AT YOURS !! 
PRESS ANY KEY TO BEGIN ASSAULT. 
YOU’RE GOING TO BATTLE A PANTHER TANK 
DISTANCE TO ENEMY IS 1277 YARDS. 
YOU HAVE 29 SHELLS TO GET YOUR TARGET. 
THRUST FACTOR FOR EACH SHELL 15 46 ЕТ. Р.5.1. 
THE ANGLE OF YOUR CANNON CAN BE 
BETWEEN 0 AND 45 ПЕСКЕЕ5..... 
SET DEGREES OF CANNON? 35 
YOU OVER SHOT THE TARGET..... 
NOW IT S MY TURN... 
DRAT !! MY SHOT WAS TOO LONG THAT TIME. YOU CAN 
BE SURE PLL DO BETTER NEXT SHOT. 
IF I GET ANOTHER... SHOT 
DISTANCE TO ENEMY IS 1273 YARDS. 
THRUST FACTOR FOR EACH SHELL IS 46 FT. P.S.I. 
THE ANGLE OF YOUR CANNON CAN BE 
BETWEEN 0 AND 45 DEGREES..... 
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SET DEGREES OF CANNON? 46 
KEEP WITHIN RANGE OF CANNON !! 
SET DEGREES OF CANNON? 28 
HEY, NOT BAD... NOT BAD AT ALL. YOU'VE 
TAKEN CARE OF THAT TARGET, BUT YOU'RE NOT FINISHED 
YOU STILL HAVE 27 SHELLS LEFT. 
DISTANCE TO ENEMY IS 1437 YARDS. 
YOU HAVE 27 SHELLS TO GET YOUR TARGET. 
THRUST FACTOR IS 47 ЕТ. Р.5.1. 
THE ANGLE OF YOUR CANNON CAN BE 
BETWEEN 0 AND 45 DEGREES..... 
SET DEGREES OF CANNON? 32, 
OVER SHOT THE TARG..... 
NOW IT’S MY TURN..... 
DRAT ! ! MY SHOT WAS TOO LONG THAT TIME. YOU CAN 
BE SURE ГІЛ, DO BETTER NEXT SHOT. 
IF I GET ANOTHER... SHOT. 
DISTANCE TO ENEMY IS 1431 YARDS. 
THRUST FACTOR FOR EACH SHELL IS 47 FT. P.S.I. 
THE ANGLE OF YOUR CANNON CAN BE 
BETWEEN 0 AND 45 DEGREES ..... 
SET DEGREES OF CANNON? 25 
YOU UNDER SHOT YOUR TARGET, WASTED A SHELL. 
NOW IT'S MY TURN..... 
IT'S YOUR TURN AGAIN.. I WASTED ANOTHER 
SHELL... (LUCKY YOU). 
DISTANCE TO ENEMY IS 1423 YARDS. 
THRUST FACTOR FOR EACH SHELL IS 47 FT. P.S.I. 
THE ANGLE OF YOUR CANNON CAN BE 
BETWEEN 0 AND 45 DEGREES ..... 
SET DEGREES OF CANNON? 35 
YOU OVER SHOT THE TARGET ..... 
NOW IT'S MY TURN..... 
THATSIT..... YOU'RE OUT OF ACTION. I JUST 
DEMOLISHED YOUR TANK... COMPLETELY!!! 
МОТ BAD FOR A COMPUTER CONTROLLED SHOT... HUH ?? 
WOULD YOU LIKE TO TRY YOUR HAND AT THE 
CONTROLS AGAIN? ILL EVEN GIVE YOU ANOTHER TANK. NO 
CAN'T HANDLE THE CONTINUOUS SOUND OF 
ROCKETS SAILING OVER YOUR HEAD ? 
END 

See Fig. 2-5 for the flowchart for this program. 
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NG SSrnucnogs> 
aj 
YES 
OUTPUT INSTRUCTIONS 


INITIALIZE 
VARIABLES 
GET NAME OF 

TAN 
GET NAME 
OF OTHER 


K 
ARGE] 
PRINT 
DISTANCE AMT , 
OF SHELLS GET RANDOM 
ENEMY 


DAMAGE 


PRINT DAMAGE 


HIT 
MES 


Fig. 2-5. The flowchart for Tank Assault. =) 


Program Listing 


10 CLS 

20 REM IF YOU HAVE TROUBLE HITTING THE TARGET 

90 КЕМ TRY SOME MULTIPLICATION USING THE FACTOR 

40 REM OF COURSE YOU SHOULD FIGURE THAT OUT BY 

50 REM YOURSELF 

60 PRINT:PRINT TAB(15) ;“*** TANK ASSAULT ***” 

62 PRINT:PRINT 

65 PRINT TAB (10) ;"DO YOU NEED INSTRUCTIONS PRINTED 
"; :INPUT A$ 

68 IF RIGHTS$(A$,1)="0" THEN CLS:GOTO 200 
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70 


80 


90 


100 


110 


120 


130 


140 


150 
160 
170 
180 
200 
205 
210 
220 
230 
240 
250 
260 
270 
280 
290 


300 
305 
310 
320 
330 
335 
340 
350 


360 


PRINT:PRINT“THIS IS THE GAME OF TANK ASSAULT IN 
WHICH YOU” 

PRINT“AND THE ENEMY (YOUR COMPUTER) WILL 

BAT TLE ONE” 

PRINT“ANOTHER. BEFORE YOU FIRE A SHELL YOU'LL 
INPUT" 

PRINT“THE DEGREES TO WHICH YOUR CANNON WILL BE 
SET.” 

PRINT“AFTER YOU FIRE (IF YOU MISS) THE COMPUTER 
WILL FIRE” 

PRINT“AT YOUR TANK. YOU’LL BOTH START WITH AT 
LEAST 20” 

PRINT“SHELLS. IF THE RANDOM TARGET SELECTED IS 
NOT” 

PRINT"AN ENEMY TANK, HAVE NO FEAR; THE COMPU- 
TER'S TANK 

PRINT"WILL STILL FIRE AT YOURS.” 

PRINT“PRESS ANY KEY TO BEGIN ASSAULT.” 


A$=INKEYS:IF A$=" " THEN 170 
CLS 


REM GET DISTANCE TO TARGET 
D=INT(1000*RND(0)+500):IF D <1000 THEN 205 
REM GET NAME OF ENEMY TANK 

FOR I=1 TO 3:READ T$(D:NEXT:N=1:L=0 

DATA ASSAULT III, PANTHER, ARMOR PLATED 
TAS=TS$(INT(4*RND(0)):IF TA$=" " THEN 240 

REM GET ENEMY SHELLS 
ES=INT(20*RND(0)+10):IF ES «20 THEN 260 

REM GET OTHER ENEMY TARGET 

FOR [=1 TO 4: READ P$():NEXT 

DATA FACTORY, ENEMY HIDEOUT,MOTOR POOL, 
BRIDGE 

PL$=P$(INT(4*RND(6)):IF PL$=" “ THEN 300 

IF R=1 GOTO 330 

REM GET YOUR SHELLS 

YS=INT(20*RND(0)+10):IF YS «20 THEN 320 

REM NOW SET ENEMY TANK OR OTHER TARGET 
IF M=1 GOTO 370 

I=INT(2*RND(0)+1):0N I GOTO 350, 360 
PRINT:PRINT"YOU'RE GOING TO BATTLE А TAS” 
TANK.':GOTO 370 

PRINT:PRINT"TARGET FOR THIS ROUND IS THE “ІРІ. 
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PRINT“DISTANCE TO ENEMY IS D;"YARDS." 

IF BB=1 GOTO 420 

PRINT"YOU HAVE”; YS; “SHELLS TO GET YOUR TARGET.” 
REM THRUST FACTOR FOR EACH SHELL 
TF=INT(50*RND(0)+15) 

IF TF <30 THEN 400 

PRINT"THRUST FACTOR FOR EACH SHELL IS"; TF;"FT. 
P.S.I." 

PRINT"THE ANGLE OF YOUR CANNON CAN BE" 
PRINT"BETWEEN 0 AND 45 DEGREES ..... , 

REM GET DEGREES 

PRINT: PRINT"SET DEGREES OF CANNON”; 

INPUT DG 

IF DG « 0 OR DG >45 THEN PRINT"KEEP WITHIN RANGE 
OF CANNON !!" :GOTO 460 

YS=YS-1:BB=1:QQ=DG*TF 

IF YS <1 THEN 940 

IF QQ=D THEN 530 

IF HP <D-50 THEN 540 

IF QQ >D+50 THEN 550 

BB=0:GOTO 820 

RESTORE: FOR I=1 TO 2000:NEXT:CLS:GOTO 200 
PRINT “YOU UNDER SHOT YOUR TARGET, WASTED A 
SHELL.":GOTO 560 

PRINT"YOU OVERSHOT THE TARGET..... ç 
PRINT:PRINT"NOW IT'S MY TURN ....” 

ES=ES-1:FOR I=1 TO 1500:NEXT:M=1:R=1 

IF ES <1 THEN 970 

ET-INT(TF*RND(0)-1) 

EQ-ET*TF:IF EQ «QQ-100 OR EQ» QQ +100 GOTO 580 
IF (D-EQ) >1 AND (D-EQ) «100 THEN 620 

IF (EQ-D) >1 AND (EQ-D) «100 THEN 620 

IF EQ «D THEN 730 

IF EQ >D THEN 770 


Т..ТАТТУОЖТООАЛТТАУЛУ 11S 
АААХ A AQ ANA ӨЧ ГАЧ FO 


ON I GOTO 630,660,690 

PRINT: PRINT"YOU'VE JUST TAKEN A DIRECT HIT TO ONE" 
PRINT"OF YOUR TRACKS, YOUR TANK IS IMMOBILE. BUT" 
PRINT“YOU CAN STILL FIRE.” 

GOTO 685 

PRINT: PRINT"HOW DID YOU LIKE THAT SHOT? A DIRECT 
HIT” 


670 


680 
683 
685 
690 


700 
710 


720 
730 
735 
740 
750 
760 
770 
775 
780 


790 
800 
810 
820 
830 


840 
850 
860 
870 


875 
880 
900 
910 
920 
930 
940 
945 
950 


960 


PRINT“TO YOUR ENGINE COMPARTMENT, ІТ DIDN’T 
DAMAGE” 

PRINT"YOUR TURRENT OR CANNON... .”:L=L+1 

IF L >0 AND L <2 THEN 1070 

FOR I=1 TO 2000: NEXT:GOSUB 900:GOTO 330 
PRINT:PRINT"THAT'S IT ..... YOU'RE OUT OF ACTION. I 
JUST” 

PRINT"DEMOLISHED YOUR TANK . .. COMPLETELY HP” 
PRINT“NOT BAD FOR A COMPUTER CONTROLLED SHOT 
... HUH ??” 


GOTO 1000 

REM COMPUTER SHOT TOO SHORT 

PRINT 

PRINT "IT'S YOUR TURN AGAIN. . 1 WASTED ANOTHER" 


PRINT"SHELL . . ЛЕ N=1 PRINT“(LUCKY YOU).”:N=0 
GOTO 685 

REM COMPUTER SHOT TOO LONG 

PRINT 

PRINT“DRAT !! MY SHOT WAS TOO LONG THAT TIME. 
YOU” 

PRINT“CAN BE SURE TLL DO BETTER NEXT SHOT.” 
РКІМТЧЕ I GET ANOTHER... SHOT.” 

GOTO 685 

I=INT(2*RND(0)+1): ON I GOTO 830,860 
PRINT:PRINT"GOOD GOING... YOU'VE HIT THE TARGET 
RIGHT ON" 

PRINT“THE BULLS EYE, NOT BAD SHOOTING ..... åå 
GOTO 535 

PRINT: PRINT “HEY NOT ВАР... NOT BAD AT ALL. YOU'VE ” 
PRINT“TAKEN CARE OF THAT TARGET, BUT YOU'RE NOT 
FINISHED” 

PRINT“YOU STILL HAVE”; YS;“SHELLS LEFT.” 

GOTO 535 

REM SUBTRACT DISTANCE BY RANDOM (10) YARDS 
D=D-INT(10*RND(0)+1) 


PRINT: PRINT: PRINT 

RETURN 

REM YOUR OUT OF SHELLS 

PRINT 

PRINT"SORRY MAC... YOU'RE COMPLETELY OUT OF 


SHELLS. YOU CAN" 
PRINT“EITHER SURRENDER OR START OVER...." 
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965 
970 
975 
980 
990 
1000 


1010 


1020 
1030 
1040 
1050 
1055 
1060 
1070 
1080 
1090 


1100 
1110 
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СОТО 1000 

REM ENEMY OUT OF SHELLS 

PRINT 

PRINT"ISURRENDER (THIS TIME). I'M OUT OF SHELLS !!” 
PRINT'TLL GIVE YOU ANOTHER BATTLE THOUGH.” 
PRINT:PRINT“WOULD YOU LIKE TO TRY YOUR HAND AT 
THE” 

PRINT“CONTROLS AGAIN? ГІЛ, EVEN GIVE YOU ANOTHER 
TANK.”; 

INPUT A$ 

IF LEFT$(A$, 1)="Y" THEN BB=0:M=0:R=0:GOTO 535 
PRINT 

PRINT"CAN'T HANDLE THE CONTINUOUS SOUND OF" 
PRINT“ROCKETS SAILING OVER YOUR HEAD ?” 

END 

FOR I=1 TO 1000:NEXT 

PRINT“YOU HAVE A FIRE STARTING IN YOUR ENGINE” 
PRINT"NOW. WON'T BE LONG YOU'LL HAVE ТО 
ABANDON” 

PRINT“THAT TANK.” 

L=0:GOTO 685 


The Bridge 


In this simulation you will try to blow up a bridge before the enemy 
has time to advance their troops across it. Everything will be 
computer selected, so, to complete your mission, you must match 
the computer’s selected weak areas (of bridge) and the amount of 
dynamite needed. Also, you must remember the name of the bridge 
you are to blow up. 


Sample Run 


THE BRIDGE 

DO YOU NEED INSTRUCTIONS PRINTED? YES 

IN THIS SIMULATION YOU WILL ATTEMPT TO BLOW UP A 
BRIDGE 

BEFORE THE ENEMY HAS TIME TO ADVANCE THEIR TROOPS 
ACROSS IT. THE BRIDGE’S NAME, WEAK AREAS AND AMOUNT 
OF DYNAMITE WILL 

ALL BE COMPUTER SELECTED. YOU MUST REMEMBER THE 
NAME AND 

YOU MUST SELECT WHICH OF THE WEAK AREAS WILL 

BE MOST EFFECTIVE. THEN YOU WILL SELECT AN AMOUNT OF 
DYNAMITE TO BE PLACED IN THAT AREA. YOU WILL HAVE ALL 
THE TIME YOU NEED—AS LONG AS THE ENEMY DOESN'T AD- 
VANCE 
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BEFORE IT’S BLOWN UP. 

PRESS А КЕҮ..... 

YOUR TARGET IS THE LOST RIVER BRIDGE 

THIS NAME WILL ONLY BE PRINTED ONCE... 

HERE ARE THE FIVE WEAK AREAS: 

LEFT CENTER 

RIGHT CENTER 

MIDDLE 

LOWER BEAMS 

UPPER BEAMS 

YOU MUST CHOOSE WHICH TWO WILL BE MOST EFFECTIVE. 
THE COMPUTER HAS SELECTED AN AMOUNT OF DYNAMITE 
THAT 

WILL DO THE JOB. YOU MUST MEET OR EXCEED THAT AMOUNT 
BUT INPUT NO MORE THAN 10 STICKS. 

PRESS А КЕҮ..... 

THE ENEMY HASN’T ADVANCED ҮЕТ..... 


INPUT THE NAME OF YOUR TARGET? LOST RIVER 
INPIIT WHICH TWO AREAS WILL RE MOST EFFECTIVE? MIDDLE 


Y AAA NAR АЛ VENS Å KAN rd Å 


?? LOWER BEAMS 

HOW MUCH DYNAMITE DO YOU WANT PLACED THERE? 6 
PRESS А KEY..... 

SORRY... THE TWO SELECTIONS WERE INCORRECT. 

THE ENEMY CAN STILL ADVANCE, THE BRIDGE WASN’T COM- 
PLETELY 

DESTROYED ... TRY AGAIN. 

PRESS A КЕҮ..... 

THE ENEMY HASN’T ADVANCED YET..... 

INPUT WHICH TWO AREAS WILL BE MOST EFFECTIVE? UPPER 
BEAMS 

2? MIDDLE 

HOW MUCH DYNAMITE DO YOU WANT PLACED THERE? 5 
PRESS А КЕҮ..... 

CONGRATULATIONS !! 


ATEI MT AMAT YT TIT DOUDOCY VUT'I'TYTNT DT, EMTV 15 TIME 
IVV VS De YY1N Ua Lilit Dad YY1 ДАЛА 


TO STOP THE ENEMY FORCES. VERY WELL DONE, I MIGHT ADD. 
PRESS A KEY ..... 

WOULD YOU LIKE TO TRY THIS SIMULATION ONCE MORE? NO 
THE ENEMY WILL THANK YOU AFTER THEYRE 

ACROSS THE OTHER BRIDGES !! 

END 
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NO 
zCÍNSTRUCTIONS 
TES 
OUTPUT INSTRUCTIONS 


GET NAME 
OF BRIDGE 
SET WEAK 


AREAS OF BRIDGE 


SET DYNAMITE 
NEEDED 


INPUT AMOUNT 
OF DYNAMITE 


INPUT AREA 
TO BE PLACED 
BRIDGE NO 


DESTROYED 
YES 


UPDATE MESSAGE 
WINNING MESSAGE 


YES GONG YES «> ud 
NOT ADVANCED 


MESSAGE 
TOO LATE 


MESSAGE 


Fig. 2-6. The flowchart for The Bridge. 


Providing you don't run out of dynamite, this simulation could 
last for awhile. Enemy advancement is randomly selected so, as 
long as the computers' random generator doesn't come up with that 
magic number, you could blow up afew bridges. See Fig.2-6 for the 
flowchart for this program. 


Program Listing 


100 RANDOM:DIM W$(20) 

105 CLS:PRINT 

110 PRINT“THE BRIDGE” 

120 PRINT 

130 PRINT“DO YOU NEED INSTRUCTIONS PRINTED"; 
140 INPUT A$ 

150 IF A$=“NO” THEN N=1:GOTO 290 
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160 
165 
170 
180 
190 
200 


210 
220 
230 
240 
200 
260 
270 


280 
290 
300 
310 
315 
320 
330 
340 
350 
360 


370 
380 


20n 


WE x 


400 


410 
420 
430 
435 
440 
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IF A$="YES” THEN 190 

PRINT 

PRINT"CAN'T RESPOND TO THAT ANSWER" 
PRINT:GOTO 130 

PRINT 

PRINT“IN THIS SIMULATION YOU WILL ATTEMPT TO 
BLOW UP A BRIDGE" 

PRINT"BEFORE THE ENEMY HAS TIME TO ADVANCE 
THEIR TROOPS ACROSS" 

PRINT"IT. THE BRIDGE'S NAME, WEAK AREAS AND 
AMOUNT OF DYNAMITE WILL" 

PRINT"ALL BE COMPUTER SELECTED. YOU MUST RE- 
MEMBER THE NAME AND" 

PRINT"YOU MUST SELECT WHICH OF THE WEAK AREAS 
WILL" 

PRINT"BE MOST EFFECTIVE. THEN YOU WILL SELECT AN 
AMOUNT OF" 

PRINT"DYNAMITE TO BE PLACED IN THAT AREA. YOU'LL 
HAVE ALL” 

PRINT"THE TIME YOU NEED—AS LONG AS THE ENEMY 
DOESN'T ADVANCE” 

PRINT“BEFORE IT'S BLOWN UP.” 

REM GET NAMES OF BRIDGES 

FOR I=1 TO 3:READ МӘС) : NEXT 

DATA LOST RIVER, RANGE CREEK, AREA FIVE 

REM NOW SELECT ONE 

I=INTG*RND(0)+1) 

NB$=N$() 

REM NOW GET WEAK AREAS 

FOR W=1 TO 5:READ WAS(W): NEXT 

DATA LEFT CENTER, RIGHT CENTER, MIDDLE, LOWER 
BEAMS, UPPER BEAMS 

REM NOW SELECT TWO 

W=INT(5*RND(O)+1) 

WE AN — WA EAN 

M=W+INTCG*RND(0)+1: IF M > 5 THEN M=(W-INT(2* 
RND(0)+1)) 

W$(M)=WA$(M) 

REM NOW SET DYNAMITE NEEDED 
D-INTOO*RND(0) H-1):IF N=1 THEN 460 

GOSUB 440:GOTO 460 

PRINT:PRINT"PRESS А KEY..... қ 


445 
450 
460 
470 
480 
500 
510 
520 


530 


540 


550 
560 
570 
580 
585 
590 
595 
600 
605 
610 
620 
640 


650 
670 


680 
700 


710 
720 
750 
760 
770 
780 
790 


800 


A$=INKEYS:IF A$=“ " THEN 445 

RETURN 

PRINT 

PRINT“YOUR TARGET IS THE ”;NB$;“ BRIDGE” 
PRINT“THIS NAME WILL ONLY BE PRINTED ONCE....” 
PRINT“HERE ARE THE FIVE WEAK AREAS:” 

FOR I=1 TO 5:PRINT WAS(D:NEXT 

PRINT"YOU MUST CHOOSE WHICH TWO WILL BE MOST 
EFFECTIVE.” | 
PRINT"THE COMPUTER HAS SELECTED AN AMOUNT OF 
DYNAMITE THAT” 

PRINT"WILL DO THE JOB. YOU MUST MEET OR EXCEED 
THAT AMOUNT” 

PRINT“BUT INPUT NO MORE THAN 10 STICKS.” 

GOSUB 440 

CLS 

PRINT 

REM IF T=2 ENEMY HAS ADVANCED 
T=INT(5*RND(0)+1) 

IF T=2 THEN 960 

PRINT"THE ENEMY HASN'T ADVANCED ҮЕТ..... " 

IF A=1 THEN 640 

PRINT“INPUT THE NAME OF YOUR TARGET"; 

INPUT T$ 

PRINT“INPUT WHICH TWO AREAS WILL BE MOST 
EFFECTIVE"; 

INPUT E$,EF$ 

PRINT"HOW MUCH DYNAMITE DO YOU WANT PLACED 
THERE”: 

INPUT DY 

IF DY > 10 THEN PRINT“DUMMY !! IT WON'T TAKE THAT 
MUCH !!”:GOTO 680 

GOSUB 440:GOSUB 900:GOTO 850 

FOR I=1 TO 5000:NEXT 

PRINT“YOU JUST BLEW UP THE WRONG BRIDGE, LUCKY 
FOR YOU” 

PRINT“THAT NONE OF YOUR TROOPS WERE ON IT !!!" 
GOTO 1000 

PRINT:PRINT“SORRY . . . THE TWO SELECTIONS WERE 
INCORRECT.” 

PRINT“THE ENEMY CAN STILL ADVANCE, THE BRIDGE 
WASN’T COMPLETELY” 

PRINT“DESTROYED . . . TRY AGAIN." 
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805 
810 
820 


830 


840 
850 
860 


870 


880 
900 
910 
920 
930 
940 
950 
960 


970 


980 
1000 
1010 
1020 


1030 
1040 
1050 
1060 
1070 
1080 


1085 
1090 
1100 
1105 
1110 
1120 
1130 
1140 
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P=P+1:IF P=3 THEN GOSUB 1100 

GOSUB 440:A=1:GOTO 570 

PRINT"YOU DIDN'T PLACE ENOUGH DYNAMITE AT THE 
LOCATIONS” 

РКІМТ"ҮОТ) SELECTED. VERY LITTLE DAMAGE WAS 
DONE TO THE BRIDGE.” 

GOTO 810 

PRINT:PRINT"CONGRATULATIONS !!” 

PRINT“YOU'VE BLOWN UP THE BRIDGE WITHIN PLENTY 
OF TIME” 

PRINT'"TO STOP THE ENEMY FORCES. VERY WELL DONE, 
I MIGHT ADD.” 

GOTO 1000 

REM WAS BRIDGE DESTROYED??? 

IF T$ < > NB$ THEN 750 

IF E$ < > W$(W) OR EF$ < > W$(M) THEN 780 

IF DY < D THEN 820 

REM RETURN IF DESTROYED 

RETURN 

PRINT: PRINT“SORRY... YOU ARE TOO LATE, THE ENEMY 
HAS ALREADY” 

PRINT"ADVANCED ACROSS THE "МВ%”“ BRIDGE. YOU 
CAN’T STOP” 

PRINT"THEM NOW... TURKEY !!" 

GOSUB 440 

PRINT 

PRINT“WOULD YOU LIKE TO TRY THE BRIDGE ONCE 
MORE"; 

INPUT A$ 

IF A$="YES" THEN RESTORE:GOTO 130 

IF A$="NO" THEN 1080 

PRINT"LET'S TRY A STRAIGHT YES/NO ANSWER" 

GOTO 1020 

PRINT:PRINT“THE ENEMY WILL THANK YOU AFTER 
THEY'RE" 

PRINT"ACROSS THE OTHER BRIDGES !!" 

END 

PRINT 

PRINT 

PRINT"WHY DON'T YOU WRITE THEM DOWN ON PAPER." 
PRINT"CROSS OUT THE ORDER WHICH YOU'VE TRIED.." 
PRINT"AND TAKE IT FROM THERE 1!" 

P=0:RETURN 


Chapter 3 


Step right up, you math brains. Try Math Session (without using a 
calculator) and see how many problems you can answer correctly 
without getting your mind tangled! 

Note: Do not use remainders in division. 


Sample Run 


THIS GAME CALLED MATH SESSION, LETS YOU CHOOSE BE- 
TWEEN 

ADDITION, SUBTRACTION, MULTIPLICATION & DIVISION. YOU 
WILL 

HAVE 10 PROBLEMS TO SOLVE, IF YOU MISS ONE YOU САМТ 
CONTINUE 

UNTIL YOU’VE ANSWERED IT CORRECTLY. THERE ARE THREE 
LEVELS OF 

DIFFICULTY FOR EACH SET TO CHOOSE FROM. 

*NOTE **DO NOT USE REMAINDERS IN DIVISION *** 

WHICH DO YOU SELECT (ADD, SUBTRACT, MULTIPLY, DIVIDE)? 
MULTIPLY 
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CHOOSE ONE OF THE FOUR... AND SPELL IT RIGHT... 
TURKEY!! 

WHICH DO YOU SELECT (ADD, SUBTRACT, MULTIPLY, DIVIDE)? 
MULTIPLY 

READY FOR SOME MULTIPLICATION .... 
SELECT THE LEVEL (1, 2, OR 3)? 1 

HERE'S YOUR PROBLEM 8 x 1 =? 8 
FANTASTIC, KEEP IT UP ! ! 

HERE'S YOUR PROBLEM 2 x 2=?4 

THAT’S CORRECT !! 

HERE'S YOUR PROBLEM 7 x 3 = ? 21 
THAT'S CORRECT ! ! 

HERE'S YOUR PROBLEM 2 x 8 =? 16 

VERY GOOD ! ! 

HERE'S YOUR PROBLEM 7 x 7 =? 49 
FANTASTIC, KEEP IT UP !! 

HERE’S YOUR PROBLEM 7 x 5 =? 35 

VERY GOOD ! ! 

HERE'S YOUR PROBLEM 1 x 1=? 1 

THAT'S CORRECT ! ! 

HERE'S YOUR PROBLEM 6 x 0 =? 6 
MISSED IT, TRY AGAIN 

HERE'S YOUR PROBLEM 6 x 0 =? 0 

THAT'S CORRECT ! ! 

HERE'S YOUR PROBLEM 9 x 9 = ? 81 

VERY GOOD ! ! 

HERE'S YOUR PROBLEM 9 x 4 = ? 36 
THAT'S CORRECT ! ! 

THEIR WERE 10 PROBLEMS, YOU MISSED 1 
THAT'S NOT BAD, BUT COULD BE BETTER. 
WOULD YOU LIKE TO TRY SOME MORE? NO 
WANT TO STUDY SOME MORE... DO YOU ?? 


See Fig. 3-1 for the flowchart for this program. 
Program Listing 


10 CLS:PRINT 

30 PRINT"THIS GAME CALLED MATH SESSION, LETS YOU 
CHOOSE BETWEEN" 

40 PRINT"ADDITION, SUBTRACTION, MULTIPLICATON & 
DIVISION, YOU WILL" 

50 PRINT"HAVE 10 PROBLEMS TO SOLVE, IF YOU MISS ONE 
YOU CAN'T CONTINUE" 
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INSTRUCTIONS 


INPUT CHOICE 


TEENE 
O SUBTRACT <NE 
ves түс ves ves Fes 
INPUT LEVEL 
GET RANDOM 
PROBLEM 
SET COUNTERS 


PRINT PROBLEM 
INPUT ANSWER 


Fig. 3-1. The flowchart for Math Session. 


60 PRINT“UNTIL YOU'VE ANSWERED IT CORRECTLY. THERE 
ARE THREE LEVELS OF” 
70 PRINT"DIFFICULTY FOR EACH SET TO CHOOSE FROM." 
75 PRINT"** NOTE **DO NOT USE REMAINDERS ІМ DIVI- 
SION** 
80 PRINT:PRINT 
85 RANDOM:C=0:N=10:N1=0:W=0 
90 INPUT“WHICH DO YOU SELECT (ADD, SUBTRACT, MUL- 
TIPLY, DIVIDE)”; A$ 
100 IF A$ < > "ADD" AND A$ < >“SUBTRACT” AND A$ < > 
“MULTIPLY’ AND 
A$ < > “DIVIDE” THEN PRINT “CHOOSE ONE OF THE FOUR 
... AND SPELL 
IT RIGHT... TURKEY ! !”:GOTO 90 
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120 
130 
140 
150 
200 
210 


220 
230 


235 
240 


245 
250 


260 
270 
280 
290 


300 
310 
320 
330 
370 
380 
400 


410 
420 
430 


435 
440 


445 
450 


460 
470 
480 


IF A$="ADD" GOTO 200 

IF A$=“SUBTRACT” GOTO 400 

IF A$="MULTIPLY” GOTO 600 

IF A$="DIVIDE" GOTO 800 

CLS: PRINT 

INPUT"SELECT THE LEVEL YOU WANT TO PLAY (1,2, OR 
3) 

ON L GOTO 230,240,250 
S=INT(RND(0)*10+RND(10)):SI=INT(RND(0)*10+RND(10)): 
S2=S+S1: IF S1 > S THEN 230 

GOTO260 
S=INT(RND(10)*10+RND(10)):SI=INT(RND(10)*10+RND(10)) 
:S2=S+ SI: IF S1 >S2 THEN 240 

GOTO 260 
S=INT(RND(100)*10+RND(10)):S1=INT(RND(100)*10+RND( 
10)):S2=S+S1: IF 51 >S THEN 250 

PRINT: PRINT 

PRINT"HERE'S YOUR PROBLEM “45 +" SL "="; 

INPUT S3 

IF S3 < >52 THEN PRINT"TRY AGAIN, PLEASE”:PRINT: 
W=W+1:GOTO 270 

GOSUB 3050: C=C+ 1 

N1=N1+1 

IF N1=N GOTO 370 

GOTO 220 

PRINT"OF THE”;N;“PROBLEMS, YOU MISSED”; W 

GOTO 2000 

CLS:PRINT:PRINT"SO YOU WANT TO TRY SOME SUB- 
TRACTION ?":PRINT:PRINT 

INPUT"SELECT A LEVEL (1,2, 0R 3) 5L 

ON L GOTO 430,440,450 

T=INT(RND(0)*50+RND(10)): TI=INT(RND(0)*10+RND(10)): 
T2=T-T1: IF T1 >T THEN 430 

GOTO 460 

T=INT(RND(10)*150+RND(10)): TI=INT(RND(10)*20+RND( 
10)):T2=T-T1:IF T1 > Т THEN 440 

GOTO 460 

T=INT(RND(20)*200+RND(10)): TI=INT(RND(20)* 35--RND 
(10)):T2=T-T1: IF T1 >T THEN 450 

PRINT: PRINT 

PRINT“YOUR SUBTRACTION PROBLEM “;T:” - ”Tl;”=" 
INPUT T3 
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IF T3 < >T2 THEN PRINT"INCORRECT RESPONSE 
. «PRINT: W=W+1:GOTO 470 

GOSUB 3050: C=C+1 

N1=N1+1 

IF N1=N THEN 570 

GOTO 420 

PRINT"OF THE”; N; “SUBTRACTION PROBLEMS, YOU 

MISSED”; W 

GOTO 2000 

CLS: PRINT: PRINT“READY FOR SOME MULTIPLICATION 

2... «PRINT: PRINT 

INPUT"SELECT YOUR LEVEL (1,2,OR 3)%L 

ON L GOTO 630, 640,650 

M=INT(RND(0)*10): M1=INT(RND(0)*10):M2=M*M1:IF М1 

>M THEN 630 

GOTO 660 

M=INT(RND(5)*15+RND(15)):M1=INT(RND(5)*15+RND(5)) 

M2=M*M1:IF M1 > M THEN 650 


GOTO 660 


M=INT(RND(50)*50+RND(15)):M1=INT(RND(50)*45+RND(5) 

):M2=M*M1: IF М1 >M THEN 650 

PRINT: PRINT 

РКІМТ“НЕКЕ5 THE PROBLEM '5M;" X ML "=" 

INPUT M3 

IF M3 < > M2 THEN PRINT"MISSED IT, TRY 

AGAIN”: PRINT: W=W+1:GOTO 670 

GOSUB 3050: C=C+1 

Ni=N1+1 

IF NI=N GOTO 770 

GOTO 620 

РКІМТ“ТНЕКЕ WERE”;N;“PROBLEMS, YOU MISSED”; W 

GOTO 2000 

CLS:PRINT: PRINT“A LITTLE DIVISION... GOODLUCK!” 

INPUT'SELECT ONLY ONE LEVEL (1,2, OR 3)”;L 

ON L СОТО 830, 840, 550 
D=INT(RND(15)+4):D1=INT(RND(12)+4): шы ГЕ 

D1 > D THEN 830 

GOTO 860 

D=INT(RND(100)*8): D1=INT(RND(20)*6): D22INT(D/D1):IF 

D1 >D THEN 840 

GOTO 860 

D=INT(RND(1000)*8): D1=INT(RND(40)*6):D2=INT(D/D1): IF 


860 
870 
880 
890 


900 
910 
920 
930 
970 
2000 
2010 
2020 
2030 
2040 


2050 


2060 


2070 


2075 
3000 
3010 
3020 
3030 
3040 
3045 
3050 
3060 
3070 
3080 


D1 >D THEN 850 

PRINT: PRINT 

PRINT"HERE'S THE PROBLEM “;D;”/ “р1'= 

INPUT D3 

IF D3 « >D2 THEN PRINT "ERROR .... TRY AGAIN" 
: PRINT: W=W+1: СОТО 870 

GOSUB 3050:C=C+1 

NI=N1+1 

IF N1 =N THEN 970 

GOTO 820 

PRINT"OUT OF”;N;“PROBLEMS, YOU MISSED”; W 

IF W=0 THEN 2040 

IF W > 0 AND W «5 THEN 2050 

IF W > 5 AND W < 9 THEN 2060 

IF W > 9 THEN 2070 

PRINT"THAT'S FANTASTIC !! EVERY PROBLEM RIGHT !!: 
GOTO 3000 

PRINT"THAT'S NOT BAD, BUT COULD BE BETTER. “СОТО 
3000 

PRINT"YOU MISSED THAT MANY? THAT IS TERRIBLE 
СОТО 3000 

PRINT"GOOD GRIEF... YOU MISSED EVERY ONE! MAYBE 
YOU SHOULD" 

PRINT"GO BACK TO SCHOOL !!” 

FOR I=1 TO 1500:NEXT:PRINT 

INPUT"WOULD YOU LIKE TO TRY SOME MORE”; B$ 

IF B$="YES" THEN 85 

PRINT:PRINT 

PRINT"WANT TO STUDY SOME МОВЕ... DO YOU ??" 
END 

I=INT(3*RND(0)+1): ON I GOTO 3060, 3070, 3080 
PRINT"THAT'S CORRECT !!”: RETURN 

PRINT"VERY GOOD !!”: RETURN 

PRINT"FANTASTIC, KEEP IT UP !!:RETURN 
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Here's your Chance to compete against yourself. You have to put 
the total alphabet in order in as few tries as possible. Once you do 
get it in order you can try the program again to beat your last 


record. 


— emm w. 


Sample Run 


THIS IS THE GAME OF ALPHABET. 

YOU'LL SOON SEE THAT THE LETTERS AREN'T IN ORDER. YOU 
MUST FIX THAT. YOU CAN MOVE THE LETTERS ANYWHERE AS 
LONG AS IT'S TO A SPACE. TRY TO ORDER THEM IN 

THE LEAST AMOUNT OF MOVES. 

IF YOU WANT TO START OVER INPUT A NUMBER FROM 50 TO 50. 
(NOTE: BE SURE TO COUNT THE SPACES WHEN MOVING LET- 
TERS). 

THIS IS THE ALPHABET: 

JEFDB CGALK IMHPO NRSTQ ZVU YXW 

WHAT IS YOUR MOVE (FROM/TO)? 11 

2? 12 

YOUR ALPHABET THUS FAR: 

JEFDB CGAL KIMHPO NRSTQ ZVU YXW 

WHAT IS YOUR MOVE (FROM/TO)? 1 

?? 11 

YOUR ALPHABET THUS FAR: 

EFDB CGALJKIMHPO NRSTQ ZVU YXW 
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WHAT IS YOUR MOVE (FROM/TO)? 9 
?? 1 
YOUR ALPHABET THUS FAR: 
AEFDB CG LJKIMHPO NRSTQ ZVU YXW 
WHAT IS YOUR MOVE (FROM/TO)? 7 
?? 6 
YOUR ALPHABET THUS FAR: 
AEFDBC G LJKIMHPO NRSTQ ZVU YXW 
WHAT IS YOUR MOVE (FROM/TO)? 8 
?? 9 
YOUR ALPHABET THUS FAR: 
AEFDBC GLJKIMHPO NRSTQ ZVU YXW 
WHAT IS YOUR MOVE (FROM/TO)? 4 
?? 7 
YOUR ALPHABET THUS FAR: 
AEF BCD GLJKIMHPO NRSTQ ZVU YXW 
WHAT IS YOUR MOVE (FROM/TO)?2 
?? 8 
YOUR ALPHABET THUS FAR: 
А F BCDEGLJKIMHPO NRSTQ ZVU YXW 
WHAT IS YOUR MOVE (FROM/TO)? 5 
?? 2 
YOUR ALPHABET THUS FAR: 
AB F CDEGLIKIMHPO NRSTQ ZVU YXW 
WHAT IS YOUR MOVE (FROM/TO)? 4 
?? 5 
YOUR ALPHABET THUS FAR: 
AB FCDEGLJKIMHPO NRSTQ ZVU YXW 
WHAT IS YOUR MOVE (FROM/TO)? 6 
?23 
YOUR ALPHABET THUS FAR: 
ABC F DEGLIKIMHPO NRSTQ ZVU YXW 
WHAT IS YOUR MOVE (FROM/TO)? 7 
?? 4 
YOUR ALPHABET THUS FAR: 
ABCDF EGLJKIMHPO NRSTQ ZVU YXW 
WHAT IS YOUR MOVE (FROM/TO)? 
STOP 

As you can see this game could be very time consuming. But 
the general idea is to run through the game until you come up with 
your best score. This sample took 12 moves (not complete); think 
you could do better? Try it! See Fig. 3-2 for the flowchart for this 
program. 
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PRINT MESSAGE 


PRINT AMOUNT 
OF MOVES | 


MESSAGE 


Y 
-—< AGAIN 


ES 
NO 


Fig. 3-2. The flowchart for Alphabet. 
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Program Listing 


5 
10 
20 
30 
40 


50 


CLEAR 100 

DIM А%(31),Х%(50) 

CLS: PRINT:M=0 

PRINT"THIS IS THE GAME OF ALPHABET.” 
PRINT"YOU'LL SOON SEE THAT THE LETTERS ARENT IN 
ORDER. YOU MUST" 

PRINT"FIX THAT. YOU CAN MOVE LETTERS ANYWHERE 
AS LONG" 

PRINT"AS IT'S TO A SPACE. TRY TO ORDER THEM IN" 
PRINT“IN THE LEAST AMOUNT OF MOVES." 

РКІМТЧЕ YOU WANT TO START OVER INPUT A NUMBER 
FROM 50 TO 50." 

PRINT'(NOTE: BE SURE TO COUNT THE SPACES WHEN 
MOVING LETTERS)." 

FOR I=1 TO 31: READ AS(D: NEXT 

DATA Ј,Е,Е,р,В, ,C,G,A,L,K, ,I,M,H,P,O, ,N,R,S,T,Q 
DATA ,Z,V,U, ,¥,X,W 

FOR I=1 TO 5:X$(D=A$(D: NEXT 

FOR I=7 TO 11:X$(D=A$(D:NEXT 

FOR I=13 TO 17:X$(D-AS(D: NEXT 

FOR I=19 ТО 23:X$(D=AS$(D: NEXT 

FOR І-25 TO 27:X$(D-AS(D: NEXT 

FOR 1=29 TO 31:X$(D=A$(): NEXT 

FOR I=6 TO 24 STEP 6:X$(D-" “NEXT 

X$(28)=" " 

PRINT: PRINT"THIS IS THE ALPHABET:" 

FOR I=1 TO 31:PRINT X$(D;: NEXT 

PRINT:PRINT 

PRINT"WHAT IS YOUR MOVE (FROM/TO) ”; 

INPUT F,T 

IF F=50 AND T=50 THEN RESTORE:M=0:GOTO 200 

IF X$(T) <>“ “THEN PRINT“TRY LANDING ON A SPACE - 
THIS TIME” :GOTO 340 

X$(T)-X$(F) 

X$(F)=" " 

Q$-"" 

FOR I-1 TO 31 

Q$-Q$4-X$(D 

NEXT 

PRINT:PRINT"YOUR ALPHABET THUS FAR:" 

PRINT Q$ 
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480 
490 


495 
500 
510 
515 
230 


540 
550 
560 
570 
580 
590 


600 
610 
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M=M+1 

M$="“ABCDEFGHUKLMNOPQRSTUVWXYZ "REM BE 
SURE TO INCLUDE 5 

SPACES AT END OF LETTERS 

IF 0%--М% THEN 510 

GOTO 340 

PRINT:PRINT"FANTASTIC !!" 

PRINT"YOU'VE LEARNED THE ALPHABET !!” 

IF М < 50 THEN PRINT"AND IT ONLY ТООК”;М; 
“MOVES”:GOTO 550 

IF M >50 THEN PRINT"BUT IT DID TAKE YOU А TOTAL 
OF”; M; "MOVES" 

PRINT: PRINT"ARE YOU READY TO BEAT YOUR LAST RE- 
CORD NOW"; 

INPUT I$ 

IF КІСНТФ(1$, )-“5” THEN RESTORE:M=0:GOTO 200 
PRINT 

PRINT"YOU WANT TO POLISH UP ON THE ALPHABET 
РКІМТ“А PENCIL AND PAPER, RIGHT?” 

END 


Alphabetize 


К: 


This game teaches the young (or young at heart) to put words in 
alphabetical order. You can easily modify this program to suit your 
needs, such as changing the DATA STATEMENTS to add new 
words, or adding more than 10 words per set. Just be sure to 
change the DIM STATEMENT, line 10, to fit the amount of words 
used (per set). 
Sample Run 

Жжжж ALPHABETIZE oe ak RK 
ARE INSTRUCTIONS REQUIRED? YES 
THIS IS THE GAME OF ALPHABETIZE, WHERE ALL YOU 
HAVE TO DO IS ARRANGE A GIVEN LIST OF WORDS IN 
ALPHABETICAL ORDER. SOUNDS SIMPLE YOU SAY ? 
LET'S TRY IT. 
INPUT THE WORDS IN THEIR CORRECT ORDER BY 
NUMBER ONLY. 
EXAMPLE: AFTER WOULD BE THE FIRST WORD SO 
INPUT #3, ETC. 


1 HELLO 2 HELP 

3 AFTER 4 MODULE 
5 MODULAR 6 SUSPENSE 
7 MR. 8 MRS. 

9 BETA 10 BET 


INPUT YOUR ALPHABETIZED LIST (BY NUMBER ONLY) 
23 


75 


? 10 


NOT CORRECT !! 
? 

NOT CORRECT !! 
? 

NOT CORRECT !! 
? 2 

NOT CORRECT !! 
24 

МОТ СОККЕСТ!! 
?6 

NOT CORRECT !! 
?8 

NOT CORRECT !! 


THAT SCORE DOESN'T EVEN DESERVE AN HONORABLE MEN- 
TION !! 
ONLY 3 CORRECT 11 OUT OF A POSSIBLE 10 ii 


PRESS A KEY..... 

INPUT THE WORDS IN THEIR CORRECT ORDER BY 
NUMBER ONLY. 

1 WENT 2 DOZE 

3 CALIFORNIA 4 SAMOLA 

5 CALLAO 6 RESPIRATOR 

7 RESPOND 8 COMPUTER 

9 COMPUTE 10 ZOOLOGY 


INPUT YOUR ALPHABETIZED LIST (BY NUMBER ONLY)? 
? 


See Fig. 3-3 for the flowchart for this program. 
Program Listing 


10 DIM 0%(11),У/%(11) 

1000 CLS:PRINT TAB(20);"***** ALPHABETIZE ***** 

1010 R=1:TW=0O:PRINT 

1020 PRINT"ARE INSTRUCTIONS REQUIRED?”; 

1030 INPUT I$ 

1040 IF КІСНТ%(%,1) <>“S” THEN CLS:PRINT:GOTO 1090 

1045 PRINT 

1050 PRINT"THIS IS THE GAME ОЕ ALPHABETIZE, WHERE ALL 
YOU" 

1060 PRINT"HAVE TO DOIS ARRANGE A GIVEN LIST OF WORDS 
IN" 
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МЫ STRUCTION 
YES 


й 
p PRINT INSTRUCTIONS 


SET COUNTERS 
READ WORDS 


PRINT WORDS 


INPUT WORDS 
ALPHABETICAL ORDER 


: YES 
YES| READ WORDS 
<> 
YES[" READ WORDS 
— = FINAL SET 
2 NO 


YES 


PLAY AGAIN 


MESSAGE 


Fig. 3-3. The flowchart for Alphabetize. 


1070 PRINT"ALPHABETICAL ORDER, SOUNDS SIMPLE YOU SAY 
ze 

1080 PRINT"LET'S TRY IT." 

1085 FOR І-1 TO 3500:NEXT:CLS:PRINT 

1090 REM GET FIRST SET OF WORDS 

1100 FOR I=1 TO 10:READ W$(D:NEXT 

1110 DATA HELLO,HELP, AFTER, MODULE, MODULAR, SUS- 
PENSE, MR.,MRS.,BETA,BET 

1120 REM NOW ALPHABETIZE THEM BY NUMBER 

1130 FOR 1=1 TO 10:READ NØD :NEXT 

1140 DATA 3,10,9,1,2,5,4,7,8,6 

1150 REM SET COUNTERS FOR ROUND 
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1160 
1170 
1180 
1185 
1190 


1195 
1200 
1210 
1215 
1220 
1260 
1270 


1280 
1290 
1295 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 


1380 
1390 


400 
210 
420 
1430 


1440 


1450 
1460 
1470 
1475 
1480 
1490 
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W=10:WT=(W+WT) 

PRINT"INPUT THE WORDS IN THEIR CORRECT ORDER BY" 
PRINT“NUMBER ONLY." 

IF R >1 THEN 1200 

PRINT"EXAMPLE: ”; W$(3); "WOULD BE THE FIRST WORD 
SO” 

PRINT'INPUT #3, ETC." 

PRINT: REM LIST THE WORDS 

J=1:U=2:P=5 

PRINT TAB(P-5); I; W$(D TAB(P*2+P) ;U; W$(U) 
I=U+1:U=I+1:IF U <> 12 THEN 1215 

REM INPUT THE LIST / CHECK IF CORRECT 
PRINT"INPUT YOUR ALPHABETIZED LIST (BY NUMBER 
ONLY)” 

FOR I=1 TO 10 

INPUT Wd) 

Q$=W$(N(D) 

IF WD < > Nd) THEN 1320 

NEXT: R=R+1: PRINT: СОТО 1340 

PRINT TAB(P*3); “МОТ CORRECT 11” 
W=W-1:TW=TW+1:GOTO 1310 

IF W=10 THEN 1370 

IF W >=7 THEN 1400 

IF W< 7 THEN 1430 

PRINT"THAT'S EXCELLENT, ALL”; W;"WORDS IN THEIR 
CORRECT ORDER.” 


PRINT"MUST'VE BEEN TOO EASY....” 


PRINT PRESS A KEY .... ”:GOSUB 2000: СОТО 1460: REM 
NEXT ROUND 

РКІМТ“ТНАТ5 NOT BAD, ”; W; "OUT OF A POSSIBLE 10.” 
IF R <=3 THEN PRINT"ITLL BE HARDER NEXT ROUND." 
GOTO 1390 

PRINT“THAT SCORE DOESN’T EVEN DESERVE AN HON 
ORABLE MENTION t!" 

10 11” 

GOTO 1390 
REM USE SAME STRING 

IF R=3 GOTO 1560:REM BRANCH TO ROUND #3 
IF R=4 GOTO 1700:REM STOP / CONT LOOP 
REM GET 10 MORE WORDS 

FOR I=1 TO 10: READ W$(D:NEXT 


1500 


1510 
1520 
1530 
1540 
1550 
1560 


1570 
1580 
1590 


1600 
1610 
1620 
1630 
1640 
1700 
1710 
1715 
1720 
1730 
1740 
1750 
1760 


1770 


1775 
1780 


1790 
1795 
1800 


1810 
1815 
1820 


1830 


DATA WENT,DOZE, CALIFORNIA,SAMOLA,CALLAO, RE- 
SPIRATOR 

DATA RESPOND, COMPUTER, COMPUTE,ZOOLOGY 

REM ALPHABETIZE BY NUMBER 

FOR I=1 TO 10:READ N(D:NEXT 

DATA 3,5,9,8,2,6,7,4, 1,10 

GOTO 1150 

PRINT: PRINT“THIS WILL BE YOUR THIRD AND FINAL 
ROUND.” 

REM GET FINAL SET OF WORDS 

FOR 1=1 TO 10:READ W$():NEXT 

DATA ZEPHYR,ZEPPELIN, ZENER,ZAP, WITTY, 
BROUGHT, BOUGHT 

DATA LESSON, TRADE, RESTRAIN 

REM ALPHABETIZE 

FOR I=1 TO 10:READ МІ): NEXT 

DATA 7,6,8,10,9,5,4,3,1,2 

GOTO 1150 

REM FINAL MESSAGE 

TS=(WT-TW):REM TOTAL SCORE 

PRINT: PRINT 

IF TS <= 15 THEN 1820 

IF TS > 15 AND TS <20 THEN 1800 

IF TS > 20 AND TS < 25 THEN 1780 

PRINT 

PRINT“THAT’S REALLY A GOOD SCORE, GOING THAT FAR 
THOUGH,” 

PRINT"YOU PROBABLY COULD'VE GOTTEN ALL OF THEM 
CORRECT.” 

GOTO 1850 

РКІМТЧ KNOW YOU COULD'VE MADE A BETTER SCORE 
THAN”;TS 

PRINT“CORRECT. THAT’S NOT BAD THOUGH... .” 
GOTO 1850 

PRINT"HOW FAR DID YOU SAY YOU WENT THROUGH 
SCHOOL ?” 

PRINT“OH I SEE, YOU'RE ONLY IN THE THIRD GRADE !!” 
GOTO 1850 

PRINT"ONLY”; TS; "RIGHT, OUT OF”; WT;“. WHY DON'T 
YOU SEE IF” 

PRINT“YOU CAN GET YOUR FIRST, MIDDLE AND LAST 
NAME IN” 
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1840 PRINT"ALPHABETICAL ORDER. THEN TRY THIS PRO- 


1845 
1850 


1860 
1870 
1875 
1900 
2000 
2010 
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GRAM AGAIN !!” 

GOTO 1875 

PRINT: PRINT“WOULD YOU LIKE TO RUN THIS PROGRAM 
AGAIN”; 

INPUT I$ 

IF RIGHTS(I$, )=“S” THEN RESTORE:GOTO 1000 
PRINT'SEE YA NEXT TIME !!" 

END 

A$=INKEY$:IF A$=" " THEN 2000 

CLS: RETURN 


Scrambled Words 


NOW PLAYING 


TLBESAE I 


p 


This game program lets you unscramble 17 different words. The 
computer will give you 2 chances to unscramble each word, after 
Which you'll be asked to select another. 


The words are about people, places and things. But you can 


modify this game to suit your wishes. Examples are: use all names, 
names of cars, movie titles just to name a few. There is no sample 
run for this program, to unscramble the words for you would be 
defeating the purpose of the game. See Fig. 3-4 for the flowchart 
for this program. 


Program Listing 


10 
20 


CLS:DIM X$(51) 

READ A$(1),A$(2),B$(1),B$(2),C$(1), C$(2), D$(1), D$(2), 
E$(1), E$(2), F$(1), F$(2), G31), G$(2) 

READ H$(1), Н%(2), I$(1), I$(2), J$(1),J$(2), K$(1), К%(2), L$(2), 
M$(1), M$@) 

READ N$(1), N$(2), P$(1), Р%(2), Q$(1), Q$(2), R$(1), R$(2) 
PRINT: C=0: Q=0: IF R=1 THEN 110 

PRINT'IN THIS PROGRAM YOU WILL BE ASKED TO UN- 
SCRAMBLE A WORD.” 
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PRINT“UNDER THE SCRAMBLED WORDS WILL BE A SEN: 
TENCE” 

РКІМТ“ТО HELP YOU UNSCRAMBLE THIS WORD (OR 
WORDS).” 

PRINT“ THESE WORDS WILL BE ABOUT NAMES, PLACES 
AND OR THINGS,” 

PRINT"ALL YOU HAVE TO DO IS SELECT A NUMBER BET- 
WEEN 1 AND 17.” 

PRINT"THEN YOU'LL HAVE 2 CHANCES TO RESPOND 
CORRECTLY, AFTER” 

РКІМТ“ТНІ5 YOU'LL BE ASKED TO SELECT ANOTHER.” 
РКІМТЧЕ YOU THINK THERE ARE 2 WORDS TO UNSCRAM- 
BLE" 

PRINT"BE SURE TO ADD THE SPACE WHEN ENTERING IT, 
OR YOU'LL" 

PRINT"RECEIVE AN INCORRECT RESPONSE.":PRINT 
INPUT"SELECT A NUMBER BETWEEN 1 AND 17 TO EXE- 
CUTE СЕМЕКАТОК”Х 


w ^ — е ғ 
Q=Q+LIF Q=17 THEN 502 


IFX <1ORX> 17THEN PRINT"OUT OF RANGE... TRY 
AGAIN.”:Q=Q 

:GOTO 110 

CLS:ON X GOTO 

130,200,280,370,460, 550,640, 730,820, 910, 1000, 1090, 

1180, 1270, 1360, 1450, 1540 

A=0 

GOSUB 3020:PRINT A$(1):GOSUB 3040 

PRINT"THE BEATLES ORIGINATED IN THIS ENGLISH 
TOWN”; 

INPUT X$ 

GOSUB 3045 

IF X$ < >A$(2)THEN 180 

GOTO 190 

GOSUB 2000:IF A <> THEN 140 

GOTO 110 

GOSUB 2090:GOTO 110 

A=0 

GOSUB 3020: PRINT B$(1):GOSUB 

PRINT"IN 1976 THIS 4 TON SPACE CRAFT SET DOWN 
SAFELY ON MARS”; 

INPUT X$ 


READ 
SCRAMBLED 
WORDS 


PRINT 
INSTRUCTIONS 


SELECT 
NUMBER 


Q=Q+1 


PRINT 
SCRAMBLED 
WORD 


Fig. 3-4. The flowchart for Scrambled Words. 


240 GOSUB 3045 


250 IF X$ < > B$(2) THEN 260 


255 GOTO 190 


260 GOSUB 2000:IF A < > 2 THEN 210 


264 GOSUB 2050 
265 GOTO 110 
280 A=0 


<-> YES 


YES 


PLAYAGAIN> 


290 GOSUB 3020:PRINTC$(1):GOSUB 3040 
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300 


310 
320 
330 
335 
340 
350 
370 
380 
390 


400 
410 
420 
425 
440 
460 
470 
480 


490 
500 
510 
515 
520 
525 
530 
550 
560 
570 


580 
590 
600 
605 
610 
615 
620 
640 
650 
660 


84 


PRINT“THIS SMALL COMPONENT WAS INVENTED IN 
1948”; 

INPUT X$ 

GOSUB 3045 

IF X$ < > C$(2) THEN 340 

GOTO 190 

GOSUB 2000:IF А < > 2 THEN 290 

GOTO 110 

A=0 

GOSUB 3020:PRINT D$(1):GOSUB 3040 

PRINT“THIS PRESIDENT, IN 1862, GAVE THE SLAVES 
FREEDOM’; 

INPUT X$ 

GOSUB 3045 

IF X$ < > D$(2) THEN 430 

GOTO 190 

GOTO 110 

A=0 

GOSURB 3020: PRINT E$(1);GOSUR 
PRINT"AMERICAN ASTRONAU 
MOON”; 

INPUT X$ 

GOSUB 3045 

IF X$ < > E$(2) THEN 520 
GOTO 190 

GOSUB 2000:IF A < > 2 THEN 470 

GOSUB 2050 

GOTO 110 

A=0 

GOSUB 3020:PRINT F$(1):GOSUB 3040 

PRINT“IN 1927, FOR THE FIRST TIME, THIS WAS USEDINA 
MOVIE”; 

INPUT X$ 

GOSUB 3045 

TH X$ < > FED’ Then 610 

GOTO 190 

GOSUB 2000:IF A < > 2 THEN 560 

GOSUB 2050 

GOTO 110 

A=0 

GOSUB 3020: PRINT G$(1):GOSUB 3040 

РКІМТ“ТНІ5 APPLIANCE WAS FIRST INTRODUCED 72 
YEARS AGO”; 


204 
SNE x 
T 


FIRST TO STEP ON 


<> 


670 
680 
690 
695 
700 
705 
710 
730 
740 
750 


760 
770 
780 
785 
790 
795 
800 
820 
830 
840 
850 
860 
870 
875 
880 
885 
890 
910 
920 
930 


940 
950 
960 
965 
970 
975 
980 
1000 
1010 
1020 


INPUT X$ 

GOSUB 3045 

IF X$ < > G$(2) THEN 700 

GOTO 190 

GOSUB 2000:IF A < > 2 THEN 650 
GOSUB 2050 

GOTO 110 

A=0 

GOSUB 3020:PRINT H$(1):GOSUB 3040 
PRINT“THE FIRST LONG SUSPENSION BRIDGE, BUILT 
1937”; 

INPUT X$ 

GOSUB 3045 

IF X$ < > H$(2) THEN 790 

GOTO 190 

GOSUB 2000:IF A < > 2 THEN 740 
GOSUB 2050 

GOTO 110 

A=0 

GOSUB 3020:PRINT I$(1):GOSUB 3040 
PRINT“HE WAS CALLED THE KING OF ROCK & ROLL”; 
INPUT X$ 

GOSUB 3045 

IF X$ < > I$(2) THEN 880 

GOTO 190 

GOSUB 2000:IF A < > 2 THEN 830 
GOSUB 2050 

GOTO 110 

A=0 

GOSUB 3020:PRINT J$(1):GOSUB 3040 
PRINT“OFTEN CALLED THE HEART OF YOUR COMPU- 
TER”: 

INPUT X$ 

GOSUB 3045 

IF X$ < > J$(2) THEN 970 

GOTO 110 

GOSUB 2000:IF A < > 2 THEN 920 
GOSUB 2050 

GOTO 110 

A=0 

GOSUB 3020:PRINT K$(1):GOSUB 3040 
PRINT“COOKING TIME WAS CUT WHEN THIS APPLIANCE 
WAS INVENTED”; 
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1030 
1040 
1050 
1055 
1060 
1065 
1070 
1090 
1100 
1110 


1120 
1130 
1140 
1145 
1150 
1155 
1160 
1180 
1190 
1200 


1210 
1220 
1230 
1235 
1240 
1245 
1250 
1270 
1280 
1290 
1300 
1310 
1320 
1325 
1330 
1340 
1350 
1360 
1370 
1380 
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INPUT X$ 

GOSUB 3045 

IF X$ < > K$(2) THEN 1060 

GOTO 190 

GOSUB 2000:IF A < > 2 THEN 1010 
GOSUB 2050 

GOTO 110 

A=0 

GOSUB 3020: PRINT L$ (1):GOSUB 3040 
PRINT"USED FOR COMMUNICATION IN MILLIONS OF 
PLACES”: 

INPUT X$ 

GOSUB 3045 

IF X$ < > L$(2) THEN 1150 

GOTO 190 

GOSUB 2000: IF A < > 2 THEN 1100 
GOSUB 2050 

GOTO 110 

A=0 

GOSUB 3020: PRINT M$(1): GOSUB 3040 
PRINT"THIS IS WHAT PEOPLE LIKE TO RELAX IN FRONT 
OF”; 

INPUT X$ 

GOSUB 3045 

IF X$ < > M$(2) THEN 1240 

GOTO 190 

GOSUB 2000: IF A < > 2 THEN 1190 
GOSUB 2050 

GOTO 110 

A=0 

GOSUB 3020: PRINT N$(1): GOSUB 3040 
PRINT“CALLED THE WINDY CITY”; 
INPUT X$ 

GOSUB 3045 

IF X$ < > N$(2) THEN 1330 

GOTO 190 

GOSUB 2000:IF A < > 2 THEN 1280 
GOSUB 2050 

GOTO 110 

A=0 

GOSUB 3020: PRINT P$(1):GOSUB 3040 
PRINT"IT CAN DO JUST ABOUT ANYTHING, GIVEN THE 
INFORMATION”; 


1390 
1400 
1410 
1415 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1505 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1595 
1600 
1605 
1610 
2000 


2010 
2050 


2060 
2070 
2080 
2090 
3000 
3010 
3020 
3030 
3040 
3045 


INPUT X$ 

GOSUB 3045 

IF X$ < > P$(2) THEN 1420 

GOTO 190 

GOSUB 2000:IF A < > 2 THEN 1370 

GOSUB 2050 

GOTO 110 

A=0 

GOSUB 3020:PRINT Q$(1):GOSUB 3040 
PRINT"DEEMED DANGEROUS FOR YOUR HEALTH”; 
INPUT X$ 

GOSUB 3045 

IF X$ < > Q$(2) THEN 1510 

GOTO 190 

GOSUB 2000:IF A < > 2 THEN 1460 

GOSUB 2050 

GOTO 110 

A=0 

GOSUB 3020:PRINT R$(1):GOSUB 3040 

PRINT“THIS ACTOR PLAYED THE SUNDANCE KID”; 
INPUT X$ 

GOSUB 3045 

IF X$ < > R$(2) THEN 1600 

GOTO 190 

GOSUB 2000:IF A < > 2 THEN 1550 

GOSUB 2050 

GOTO 110 

GOSUB 3020:PRINT“INCORRECT RESPONSE”: FOR I=1 TO 
1500:NEXT 

CLS: RETURN 

GOSUB 3040:PRINT"YOU'VE HAD 2 TRIES AT THE SAME 
QUESTION, SORRY” 

FOR I=1 TO 1500:NEXT 

CLS 

Q=Q-1:RETURN 

GOSUB 3020: PRINT“VERY GOOD !!”: FOR I=1 TO 1500: NEXT 
CLS 

C=C+1:RETURN 

PRINT: PRINT: PRINT: PRINT TAB(15); 

RETURN 

PRINT: PRINT: PRINT: RETURN 

A=A+1:RETURN 
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3050 
3060 
3070 
3080 
3090 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
5000 
5010 


5020 
2030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
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DATA IVPLOROEL, LIVERPOOL 

DATA IKGIVNTRBOO, VIKING ROBOT 

DATA RSTANORTIS, TRANSISTOR 

DATA MAARABHNCOLINL,ABRAHAM LINCOLN 
DATA LINETRRAMGSNO,NEIL ARMSTRONG 
DATA DOSUN,SOUND 

DATA HASISDHREW, DISHWASHER 

DATA NDLOETAGEG, GOLDEN GATE 

DATA SLEIVSPERELY,ELVIS PRESLEY 

DATA RPORMCISSRCEOO, MICROPROCESSOR 
DATA ROMCIAWVE, MICROWAVE 

DATA EPHENOTLE, TELEPHONE 

DATA NTLEEVSIOI, TELEVISION 

DATA GAHCICO, CHICAGO 

DATA RPUMCOTE, COMPUTER 

DATA RATETGICE, CIGARETTE 

DATA BRORETFDERDOR, ROBERT REDFORD 


FOR I=1 TO 2000: МЕХТ 
CLS 


“алым 


РКІМТ 

PRINT"YOU'VE ANSWERED"; О;“ОЕ THE 17 QUESTIONS” 
PRINT“TOTAL CORRECT OF THESE ARE”;C 
PRINT 

PRINT"WOULD YOU LIKE TO TRY SOME MORE"; 
INPUT X$ 

IF X$=“YES” THEN RESTORE: GOTO 5130 
PRINT“YOU CHICKEN !!” 

END 

PRINT"DO YOU NEED INSTRUCTIONS”; | 

INPUT X$ 

IF X$="“YES” THEN 20 

R=1:GOTO 20 


Chapter 4 


Now you can test your mind to see if or how good your Extra 
Sensory Perception really is. The program is sectioned into two 
parts, the first part requires two people, the second part you do on 
your own. No sample run is provided as this would defeat the 
program’s purpose, but you can get a really good idea of the 
program by reading the print statements. See Fig. 4-1 for the 
flowchart for this program. 


Program Listing 


10 
20 


30 


40 


CLS:RANDOM 
PRINT:PRINT"THIS PROGRAM TESTS YOUR KNOWLEDGE 


OF ESP." 
PRINT"THEIR ARE TWO PARTS TO THE ENTIRE PRO- 


GRAM, UPON SELECTION" 

PRINT"OF AN INDIVIDUAL PART, FURTHER INSTRUC- 
TIONS WILL BE LISTED." 

PRINT:PRINT SELECT BY NUMBER ONLY:" 

РКІМТ“(1) TELEPATHY (REQUIRES TWO PEOPLE)" 
PRINT“(2) PRECOGNITION” 

INPUT X 


INSTRUCTIONS 


ЕСІГІ X 


YES YES 
OUTPUT MESSAGE OUTPUT MESSAGE 


PRINT TARGET 
NUMBER 


INPUT RECEIVER 
SCORE 


| NO 
PRINT TOTAL et 


% SCORE YES 


SET TIME LOOP 


GET COLOR 


PRINT COLOR 


INPUT YOUR 
SCORE 


PRINT TOTAL 
% SCORE 


YES | МО 
PLAY AGAIN MESSAGE 


Fig. 4-1. The flowchart for ESP Test. 


90 
100 
105 
110 
120 
130 


140 


ON X GOTO 100,550 

CLS: PRINT 

F=0:N=0:T=10 

PRINT"THIS PART OF THE PROGRAM DEALS WITH TELE- 
PATHY.” 

PRINT"TELEPATHY IS THE TRANSFERENCE OF 
THOUGHTS FROM ONE” 

PRINT“PERSON TO ANOTHER WITHOUT USE OF THE FIVE 
SENSES.” 

PRINT“HAVE ANOTHER PERSON (THE RECEIVER) SIT 
WHERE THE VIDEO” 
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150 


160 


170 


180 


190 


200 


205 
210 
220 
230 
240 
250 
260 


270 


280 


290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
500 
510 
520 
530 
550 
555 
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PRINT“SCREEN IS NOT VISIBLE TO THEIR SIGHT. AFTER 
EXECUTION” 

PRINT“OF THIS PROGRAM A NUMBER WILL BE PRINTED 
ON THE” 

PRINT“SCREEN (THESE WILL BE CALLED RANDOM 
TARGET NUMBERS).” 

PRINT“LOOK AT THE NUMBER, CONCENTRATE ON IT 
VERY HARD. THEN” 

PRINT“ASK THE RECEIVER WHAT THE NUMBER IS. 
THERE WILL BE TEN” 

PRINT"TARGET NUMBERS. DO THESE TESTS IN QUIET 
SURROUNDINGS.” 

GOSUB 500 

REM GET TARGET NUMBER 

T=INT(10*RND(0)+1) 

PRINT: PRINT 

PRINT: PRINT TAB(30);T 

PRINT 

PRINT“THIS IS THE RANDOM TARGET NUMBER. C 
CENTRATE ON IT” 

PRINT"ASK THE RECEIVER WHAT IT IS, THEN ENTER THE 
RECEIVER'S” 

PRINT“SCORE (ENTER 1 FOR A CORRECT RESPONSE AND 
0 FOR AN” 

PRINT“INCORRECT RESPONSE)” 

GOSUB 530: REM TIME LOOP 

INPUT“ENTER THE RECEIVERS SCORE”: A 

N=N+1:REM AMOUNT OF NUMBERS PRINTED 

IF A=1 THEN F=F+1 

IF A=0 THEN Е-Е 

S=INT(100*F/T): REM PRECENT SCORE 

PRINT"NUMBER OF TRIES —” N 

PRINT"SCORE THUS FAR”:S;"% CORRECT...” 

IF N <>10 THEN GOSUB 500: GOTO 210 

CATO оло 

GOTO 550 

PRINT:PRINT“PRESS ANY KEY ..... d 

A$=INKEYS: IF A$=" "THEN 510 

CLS: RETURN 

FOR I=1 TO 2500: NEXT: RETURN 

CLS:A=10:F=0:N=0 

FOR I=1 TO 5:READ C$(D: NEXT 


'ON- 


560 
570 


580 


590 


600 


610 
620 


630 
635 


640 
650 


660 
670 
680 


685 
690 
700 
710 
715 
720 
725 
730 
760 
765 
770 


780 
790 


РКІМТ 

РКІМТ“ТНІ5 PORTION OF THE PROGRAM DEALS WITH 
PRECOGNITION.” 

PRINT"WHICH IS TO KNOW BEFOREHAND. YOU'LL AT- 
ТЕМРТ TO READ (THE COMPUTER'S)” 
PRINT“MEMORY)BEFORE IS PRINTED ON THE SCREEN IN 
A” 

PRINT“GIVEN AMOUNT OF TIME (NAMES OF COLORS 
WILL BE USED).” 

REM L= TIME LOOP / 500 

PRINT“TO SET THE TIME RATE, HAVE YOU HAD ANY PRE- 
COGNITIONS” 

PRINT“THAT YOU CAN REMEMBER?(ENTER 0,1,2,3, ETC. - 
NOT MORE” 

РКІМТ“ТНАМ 10)”; 

ІМРОТР 

IF P< 0 OR P > 10 THEN PRINT“TRY AGAIN. . . INVALID 
RESPONSE.": 

GOTO 640 

IF P >5 THEN P=5000:L=P/500:GOTO 680 
P=7500:L=P/500 

PRINT: PRINT"YOU'LL HAVE”;L;“SECONDS BEFORE EACH 
COLOR IS” 

PRINT“PRINTED ON THE SCREEN..... “ 

GOSUB 500: PRINT 

PRINT"AFTER EXECUTION OF THIS PORTION, CONCEN- 
TRATE ON THE” 

PRINT“DIFFERENT COLORS THAT MIGHT BE CONTAINED 
IN THE COMPUTER’S” 

PRINT“MEMORY, WRITE DOWN YOUR ANSWER ON A 
PIECE OF PAPER.” 

PRINT“AFTER YOUR ALLOTTED TIME, THE COMPUTER 
WILL PRINT THE” 

PRINT“COLOR. ENTER YOUR SCORE: 1 FOR CORRECT, 0 
FOR INCORRECT.” 

PRINT“THE ROOM YOU ARE IN MUST BE QUIET !!” 
GOSUB 500 

PRINT 

PRINT“CONCENTRATE, THEN WRITE YOUR ANSWER ON 
PAPER.” 

PRINT“REMEMBER, YOU ONLY HAVE”;L;“SECONDS.” 
N=N+1:I=INT(4*RND(0)+1) 
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800 
810 
820 
825 
830 


840 
850 
860 
870 
880 
890 
900 
910 
920 


930 
940 
950 
955 
960 
970 
975 
980 
990 
1000 
1010 
1020 
1030 
1050 


FOR Q=1 TO P:NEXT 

PRINT: PRINT“TIME’S ОР!!!” 

PRINT: PRINT: PRINT 

PRINT ТАВ(25);С$(1) 

PRINT:PRINT“DID YOUR ANSWER MATCH THE COMPUT- 
ERS MEMORY? (1/0)”; 

INPUT M 

IF M=1 THEN F=F-+1 

IF M=0 THEN Е-Е 

S=INT(100*F/A) 

PRINT: PRINT“NUMBER OF TRIES —%N 

PRINT"SCORE THUS FAR”;S;"% CORRECT." 

IF N « > 10 THEN GOSUB 500:GOTO 770 

GOSUB 500 

PRINT:PRINT"YOU HAD”;N;“TRIES . . . PERCENTAGE AS 
LISTED:” 

PRINT“CHANCE SCORE 10% TO 30%” 

PRINT“GOOD SCORE 40% TO 60%” 

PRINT“EXCELLENT SCORE 70%TO 100%” 

PRINT 

PRINT"YOUR TOTAL SCORE WAS —”;S;“% CORRECT." 
GOSUB 500 

PRINT 

PRINT“SHALL WE TRY AGAIN”; 

INPUT Һ% 

IF LEFT$(N$, 1)="Y" THEN RESTORE: GOSUB 500:GOTO 50 
PRINT 

PRINT“WHAT’S THE MATTTER, GOT A HEADACHE ???” 
END 

DATA RED, GREEN, BROWN, YELLOW, BLUE 


5 Test 


a kd Wi NS 3 ж 


teil NG 


See how good your memory really is. If you think your mem- 
ory is excellent, this program will let you know for sure. Don’t 
cheat by writing the words on paper as they’re listed on the screen; 
to do so would be to miss the whole point of the test!! 

After you or your friends tire of the same words, you can 
change the DATA in lines 40, 50 and 60 to suit your needs. How you 
rate your memory will determine the amount of time a word will be 
printed on the screen. Meaning if you rate your memory as excel- 
lent, the words will be printed only a short time. Rating your 
memory as poor has an opposite effect the words are printed for a ` 
long duration. 

Because of the words and point of the test, no sample run is 
included—to do this would be to render the test useless. But 
remember, after each word is printed, the screen will clear after an 
allotted amount of time. See Fig. 4-2 for the flowchart for this 
program. 

Program Listing 


10 CLEAR 500:DIM A(20), W(20), A$(16), S$(16), T$(16), W$(16) 
20 CLS:PRINT:PRINT 
30 FOR I=1 TO 15:READ A$(D:NEXT 
40 DATA COMPUTER, LOST, INTELLIGENT, WONDER, AB- 
SENT, SOFTLY 
50 DATA SECOND, HEREAFTER, MORNING, SYSTEM, QUES- 
TIONS, SILVER 
60 DATA SWATH, TEMPERATURE, ENTERTAINMENT 
110 PRINT TAB(15); “***** MEMORY TEST *****” 
120 PRINT:PRINT"RATE YOUR MEMORY (BY NUMBER ONLY)" 
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130 
140 
150 
160 
170 
175 


180 
190 


200 
210 
220 
230 
240 


250 
260 


270 


280 
290 
295 
300 
310 
320 
330 
340 
350 
360 
370 


380 
390 
400 
410 
420 
430 
435 
440 
450 
460 
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PRINT"(1) EXCELLENT" 

PRINT” (2) GOOD” 

PRINT") FAIR" 

PRINT"(4) POOR” 

INPUT N 

IF N < LOR N > 4 PRINT“TRY A NUMBER THAT'S LISTED 
СОТО 170 


ON N GOTO 190,200,210,220 
T=400: V=15: Y=V:A$="EXCELLENT”:GOSUB 1500:GOTO 
230 


T=700:V=10: Y=V:A$="GOOD”:GOSUB 1500:GOTO 230 
T=900: V=8: Y=V: A$="FAIR":GOSUB 1500:GOTO 230 
T=1000: V=6: Y=V:A$="POOR”:GOSUB 1500 

PRINT:IF N < > LAND N < > 2 THEN 260 

PRINT"WITH YOUR MEMORY (%4A$;"), YOU SHOULDN'T 
HAVE” 

PRINT"TOO MANY PROBLEMS WITH THIS TEST.” 
PRINT"YOU WILL SEE”:V;“WORDS, PRINTED ON THE 
SCREEN.” 

PRINT“AFTER THESE WORDS ARE ERASED YOU WILL 
INPUT THEM” 

PRINT'IN THE ORDER THEY APPEARED.” 

REM SET PRINT AREA / TIME LOOP 
PRINT:INPUT'PRESS ENTER/RETURN TO BEGIN”; X$ 
X=25: CLS: PRINT: PRINT: PRINT: PRINT: PRINT 

FOR I=1 TO V 

PRINT TAB(X-10 (5 5"); ТАВ(Х); Т%(1) 

FOR J=1 TOT 

NEXT Ј: CLS: PRINT: PRINT: PRINT: PRINT: PRINT 

NEXT I 

CLS: PRINT 

PRINT"NOW YOU WILL INPUT THE WORDS, STARTING 
WITH THE FIRST" 

PRINT"WORD THAT WAS PRINTED." 

FOR W=1 TO V 

PRINT"ENTER WORD #”;W; 49% 

INPUT W$(W) 

IF W$(W)< >T$(W) THEN YzY-1:A$(W)z" "W(QW)W(W)--W 
NEXT 

IF Y=V THEN 490 

PRINT: PRINT“INCORRECT WORDS:” 

FOR I=1 TO V 

IF Wd) > 0 THEN PRINT W(D;“,”; 


GET MORE 
WORDS 


INSTRUCTIONS | 
GET WORDS | 


INPUT YOUR 
MEMORY TYPE 


SET PRINT LOOP 
FROM MEMORY 
TYPE 


SET COUNTERS 


PRINT WORD 


W=W+1 


[compare WORDS 

SELECT MESSAGE 
FOR AMT. 

CORRECT WORDS 


PRINT MESSAGE 


Fig. 4-2. The flowchart for Memory Test. 


480 
485 
490 
500 
510 
520 
530 


NEXT: PRINT 
GOTO 700 


REM ALL WORDS CORRECT 


PRINT 


PRINT"VERY WELL DONE—ALL WORDS CORRECT.” 
REM GOTO FINAL PART OF TEST 


GOTO 800 


YES NO 
-J ENDING MESSAGE [m~ 
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700 


710 


720 


730 
740 
750 
760 


770 
780 


790 


800 
810 


820 
830 
840 


850 


860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 


PRINT"IF YOU MISSED MORE THAN 2 WORDS YOU 
SHOULD TRY THE" 

PRINT"FIRST PART OF THE PROGRAM OVER, OR YOU 
MIGHT" 

PRINT"NEVER NEVER MAKE IT THROUGH THE FINAL 
PART." 

IF ABS (V-Y) > 2 THEN 750 

PRINT"YOU DIDN'T SO..... ":GOTO 800 
PRINT"CHECKING YOUR SCORE, YOU MISSED”; (V-Yy;"." 
PRINT"WOULD YOU LIKE TO TRY THE FIRST PART 
AGAIN?"; 

INPUT I$ 

IF I$=“YES” THEN FOR I=1 TO V:WQ)=0:NEXT: Y=V:GOTO 
260 

PRINT: PRINT'T HOPE YOU MAKE IT THROUGH THE FINAL 
PART !!" 

PRINT 

РКІМТ“РКЕ55 ENTER/RETURN FOR FINAL PART ОЕ 
TEST": 

INPUT X$ 

CLS:PRINT 

PRINT“KEEP A CLOSE EYE ON THESE WORDS, AS THE 
COMPUTER” 

PRINT“MAY NOT ASK YOU TO INPUT THEMIN THE ORDER 
THEY” 

PRINT“WILL BE PRINTED.” 

PRINT: INPUT"PRESS ENTER/RETURN TO BEGIN”; X$ 
PRINT 

REM GET WORDS AGAIN 

RESTORE 

FOR I=1 TO 15:READ AS(D:NEXT 

FOR I=1 TO 10 

S=INT(10*RND(0)+1) 

IF B(S) < > 0 THEN 930 

SEO=HAKS) 

B(S)=1 

NEXT 

X=15:Q=1:R=:Z=X 

FOR T=1 TO 1500:NEXT: CLS:PRINT: PRINT: PRINT: 
PRINT: PRINT 


1000 PRINT TAB(X-5);Q;“)”;TAB(X); S$(Q); TAB (X+15); 
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К; ЭУ”; TAB (X+20); S$(R) 


1010 
1020 
1030 
1040 
1050 
1060 


1070 


1080 


1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 


1240 
1250 
1260 


1270 


1280 
1500 
1505 
1510 
1515 
1520 
1525 
1530 
1540 


Q=Q+2:R=Q+1 

Z=Z-2 

IF Z < > 5 THEN 990 

REM TIME LOOP 

FOR T=1 TO 800: NEXT: CLS: PRINT 

PRINT"YOU NOTICED THAT THE WORDS APPEARED IN 
PAIRS” 

PRINT“AND THERE WERE 10 OF THEM. TOSUCCEED 
THIS PART” 

PRINT“OF THE TEST, YOU MUST INPUT THE WORDS THE 
WAY” 

PRINT“THE COMPUTER ASKS YOU TO.” 
I=INT(8*RND(0)+1):C=I 

IF I < 5 THEN 1100 

PRINT"YOU'LL ENTER”;I;“OF THE 10 WORDS." 

PRINT: PRINT"INPUT THE FOLLOWING WORDS:” 

FOR W=1 TO 1 

N-INT(10*RND(0)4-1) 

IF E(N) <>0 THEN 1150 

PRINT"ENTER WORD # ”. N; 

INPUT W$(W): IF W$(W) < > S$(W) THEN C=C-1 

E(N)=1 

NEXT 

CLS:PRINT 

IF C < 5 THEN 1260 

PRINT"OUT OF THE” "WORDS, YOU'VE REMEM- 
BERED”; C 

PRINT“OF THEM, NOT BAD AT ALL !!” 
PRINT:PRINT-END OF PROGRAM..... "END 
PRINT"YOU COULD HAVE CHEATED AND COME UP WITH 
A BETTER” 

PRINT“SCORE THAN THIS. ”;C;“CORRECT OUT OF ON- 
LY”; L“ WORDS !!!” 

GOTO 1250 

REM SELECT NUMBER OF RANDOM WORDS 

FOR I=1 TO 15 

M=INT(15*RND(0) +1) 

IF A(M) < >0 THEN 1510 

T9(D -A$(M) 

A(M)=1 

NEXT 

RETURN 
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Memory Test II takes over where the previous Memory Test 
One left off. This test has three categories, numbers, names and 
places. How you rate your memory will determine the length of 
time that a word or number will be printed on the screen. 

This program could be a great help to your school age chil- 
dren. You could change the DATA in lines 230, 280 and 290 to 
insert words that they have trouble spelling, then when the pro- 
gram 15 run, you could not only test their memory but brush up on 
their spelling. 

As with the previous Memory Test, no sample run is included. 
To do so would forfeit the numbers, names and places. See Fig. 4-3 
for the flowchart of this program. 


Program Listing 


104 DEM *** MEMADV ТЕСТ Tr жж 


de w a! А 9 А 


20 CLS:CLEAR 500:DIM N(30), Y(30) 

30 PRINT:PRINT ТАВ(5);“** MEMORY TEST II **” 

40 PRINT 

90 PRINT 

80 PRINT"THIS SIMULATION WILL TEST YOUR MEMORY." 

90 PRINT"POOR, FAIR, GOOD OR EXCELLENT, YOU'LL RUN" 
100 PRINT"YOUR MEMORY THROUGH IT'S PACES.” 


100 


110 PRINT"SELECT ONE OF THE FOLLOWING:” 

120 PRINT"(1) NUMBERS” 

130 PRINT'(2) NAMES” 

140 PRINT'(3) PLACES” 

150 PRINT"(4) CANCEL PROGRAM” 

160 INPUT X 

170 CLS:PRINT:PRINT:IF X > 3 THEN 320 

180 PRINT"HOW DO YOU RATE YOUR MEMORY" 

190 INPUT"(POOR, FAIR, GOOD OR EXCELLENT)"; A$ 

200 GOSUB 1000:IF R > 0 THEN 300 

210 REM READ NAMES 

220 FOR 1=1 TO 10: READ N$(D:NEXT 

230 DATA CHARLES, MAC, RHONDA, CARLA, KAREN 
DENNIS, ROBIN, MOZART, ALAN, MICHELLE 

250 REM READ PLACES 

270 FOR I=1 TO 10:READ P$(D:NEXT 


INSTRUCTIONS 


SELECT X 


— T 


RATE YOUR MEMORY 


READ N$ 


READP$ 


SET COUNTERS 


YES [PRINT INPUT NUMBERS | | message 
NUMBERS | | COMPARE 
YES [PRINT INPUT NAMES | MESSAGE | 
< NAMES _| | COMPARE жанын 
YES | PRINT INPUT PLACES MESSAGE 
PLACES | | COMPARE 


| CLOSING MESSAGE | 


Fig. 4-3. The flowchart for Memory Test Il. 
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280 


290 


300 
310 
320 
330 
340 
350 
360 


365 
366 
370 
380 
390 


400 


405 
410 


420 
425 


426 
430 
440 
450 
460 


470 
480 
490 
500 
510 
520 
530 
540 
990 
560 
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DATA CHICAGO,ALABAMA, HONOLULU, CALIFORNI- 
A,TEXAS 

DATA FLORIDA,MISSISSIPPILNEW YORK,CANADA,SWE- 
DEN 

REM SET COUNTERS 

A=1:B=10:C=0:R=0 

ON X GOTO 330,830,840, 1550 

CLS:PRINT:PRINT:IF Z=1 THEN 370 

Z=1:REM GET NUMBERS 
N(1)=10:N(2)=N(1)*2:N(8)=N((1)*3)/2:N(4)=N(3)*2+5:N(5)=N(2)/2 
N(6)=N(3)*4:N(7)=N(5)*N(4)/N(1): (8) =N(4)*N(7)/2:N(9)=N(8)/N(2)* 
NOI): N(A0)=N(9)/N(2) 

FOR I=11 TO 20:READ МІТ): NEXT 

DATA 11.2,2,7.7,8.2,100,22, 01,244,5.44,101 

PRINT"YOU RATED YOUR MEMORY AS BEING ” АФ 
IF M < >1 AND M < > 2 THEN 410 

PRINT"WITH A MEMORY LIKE THAT, YOU SHOULDNT 
HAVE” 

PRINT“TOO MANY PROBLEMS WITH THIS PART OF THE 
TEST.” 

GOTO 425 

РКІМТ“КЕЕР YOUR EYES ON THE NUMBERS—YOU 
MIGHT” 

PRINT“ENCOUNTER SOME UNEXPECTED PROBLEMS !!” 
PRINT:INPUT"PRESS ENTER/RETURN”: X$:CLS:GOSUB 
1060 

ON R GOTO 480,110 

T=20:TT=T+5 

FOR NN=A ТОВ 

PRINT TAB(T); NNN); 

GOSUB 1060: REM TIME LOOP THAT NUMBERS, NAMES & 
PLACES ARE PRINTED 

NEXT: GOTO 530 

FOR I=A TO В:М()%2:МЕХТ 

FOR I=A TO B 

PRINT TAB(TT);NQ@; 

GOSUB 1060 

NEXT 

GOSUB 1060:IF R > 0 THEN 560 

PRINT“DID YOU REMEMBER THE FIRST SET?” 
PRINT“WE’RE GOING TO FIND OUT NOW.” 
РКІМТ“ІМРОТ THE NUMBERS, STARTING WITH THE 
FIRST” 


570 
080 
590 
600 
610 
620 
630 
640 
650 
660 


670. 


675 
676 
677 
680 
685 
690 
700 
710 
830 
840 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1095 
1100 
1110 
1120 
1130 
1140 
1145 
1150 
1160 
1170 
1180 


PRINT“NUMBER SEEN.” 

FOR I=A ТОВ 

INPUT YD 

IF Үй) < > Nd) THEN 620 

С=С+1 

МЕХТ 

IF C < 5 THEN 650 

IF C > 5 THEN 690 

PRINT'T DON'T THINK I NEED TO TELL YOU,” 
PRINT"YOU'VE MADE A VERY POOR GRADE” 
PRINT“ON THAT SET OF ”; 
‘IF X=1 THEN PRINT"NUMBERS." 

IF X=2 THEN PRINT“NAMES.” 

IF X=3 THEN PRINT“PLACES.” 
A=A+10:B=B+10:R=R+1:IF R «3 THEN 425 
FOR I=1 TO 1500:NEXT:CLS:PRINT:GOTO 110 
PRINT"THAT'S FANTASTIC !! ”;C;”OF THEM CORRECT !!" 
PRINT"MUST'VE BEEN A LITTLE SIMPLE ???" 
GOTO 680 

GOSUB 1000: GOTO 1100 

GOSUB 1000: GOTO 1310 

IF A$=“POOR” THEN TI=1000:M=4:GOTO 1040 
IF A$=“FAIR” THEN TI=750:M =3:GOTO 1040 
IF A$—"GOOD" THEN TI=500:M=2:GOTO 1040 
IF A$="EXCELLENT” THEN TI=400:M=1 

REM TI IS PRINT/TIME LOOP 

RETURN 

FOR L=1 TO TI:NEXT 

FOR P=1 TO 20 

CLS: PRINT: PRINT 

NEXT 

RETURN 

CLS: PRINT: A=1:B=10:R=3:T=20 

IF M < >AND M <>2 THEN 1145 

PRINT“SO YOU'RE READY TO TRY NAMES,” 
PRINT"AND YOU'RE MEMORY IS”;A$;” ? " 
PRINT"LET'S FIND OUT, NOW.”:GOTO 425 
PRINT"KEEP A CLOSE EYE ON THE NAMES ..... Н 
СОТО 425 

FOR I=A ТО В 

PRINT ТАВ(Т-7);1;”)” TAB(T);N$(D 

GOSUB 1060 
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1190 NEXT 

1200 GOSUB 1060 

1210 NEXT 

1220 PRINT“NOW WE'LL TEST YOUR MEMORY OF NAMES." 

1230 PRINT“STARTING WITH THE FIRST NAME, ENTER THEM." 

1240 FOR I-A TOB 

1250 PRINT"ENTER NAME ЯҒ”; 

1260 INPUT Q$ 

1270 IF Q$(D < > N$@ THEN 1290 

1280 C=C+1 

1290 NEXT 

1300 GOTO 630 

1310 CLS:PRINT: PRINT 

1320 A=1:B=10:T=10 

1330 IF M < >1 AND M <>2 THEN 1360 

1340 PRINT"EVEN THOUGH YOUR MEMORY IS ”;A$ 

1350 PRINT“KEEP A CLOSE EYE ON THESE PLACES.”:GOTO 
1390 

1360 PRINT“YOU MIGHT FIND DIFFICULTY WITH THIS” 

1370 PRINT"PART OF THE PROGRAM, WITH ONLY A ”;A$ 

1380 PRINT"MEMORY TO HELP YOU..... в 

1390 PRINT:INPUT“PRESS ENTER/RETURN TO BEGIN”; X$ 

1395 GOSUB 1060 

1400 FORI=A TOB 

1410 PRINT TAB(T-6); І;7“ТАВ(ТУР%А) 

1420 GOSUB 1060 

1430 NEXT 

1440 GOSUB 1060 

1460 PRINT"NOW ENTER THE PLACES, STARTING WITH” 

1470 PRINT"THE FIRST ONE SEEN." 

1480 FORI-A ТОВ 

1490 PRINT“ENTER PLACE #”;[; 

1500 INPUT W$ (D 

1510 IF W$(D < > P$Q)THEN 1530 

1520 C=C+1 

1530 NEXT 

1540 R=3:GOTO 630 

1550 GOSUB 1060 

1560 PRINT"MAYBE YOU'D LIKE TO TRY” 

1570 PRINT"MEMORY TEST II’ 

1580 PRINT"SOME OTHER TIME..... ý 

1590 END 
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Computer Concentration 


You'll have to get out your thinking cap for this one. 10 
questions will be printed about television, past and present. After 
you answer each one, a clue word to a mystery sentence or 
statement will be printed. After all 10 questions, all clue words will 
be printed (maybe). You must place these words together to match 
the sentence that the computer has in memory. 

The second half of the game also contains 10 questions. These 
will be of general knowledge. The clue word or word(s) will be torn 
apart and each time you answer a question correctly a letter to the 
clue word will be printed. If you answer incorrectly no new letters 
will be printed. When you are ready to guess, your word must 
match the computer’s word exactly. For obvious reasons all 
answers were left out of the sample run. 


sample Run 


COMPUTER CONCENTRATION 
YOU WILL BE GIVEN SEVERAL DIFFERENT QUESTIONS 
TO ANSWER. IF YOU ANSWER EACH QUESTION 
SUCCESSFULLY, A CLUE WORD TO 
THE PUZZLE WILL BE PRINTED. 
YOU MUST PLACE THESE WORD(S) 
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TOGETHER TO MATCH WHAT THE COMPUTER 
HAS IN ITS MEMORY. 
PRESS ANY KEY TO BEGIN. 
THE THEME FOR THIS PORTION WILL 
BE TELEVISION. YOUR ANSWERS 
WILL BE THE FILL IN TYPE. 
THE ANSWER TO THE PUZZLE 
WILL BE EITHER A SENTENCE 
OR A STATEMENT. 
USED TO BE ONE OF CHARLIE’S ANGELS? 
CORRECT !! 
CLUE WORD TO PUZZLE: IS 
DO YOU WANT TO GUESS OR PASS? PASS 
ALIEN BEINGS FROM A DYING PLANET? 
CORRECT 11 
NO CLUE WORD... SORRY 
(Computer has the option of not giving clue words during the first part of 
the game.) 
DO YOU WANT TO GUESS OR PASS? PASS 
AGENT AGAINST T.H.R.U.S.H.? 
CORRECT!! 
CLUE WORDS TO PUZZLE: ARE IS 
DO YOU WANT TO GUESS OR PASS? PASS 
RATED BEST T.V. MINISERIES EVER? 
CORRECT !! 
CLUE WORDS TO PUZZLE: THE ARE IS 
DO YOU WANT TO GUESS OR PASS? PASS 
DAYTIME SOAP WITH NURSES? 
CORRECT !! 
CLUE WORDS TO PUZZLE: THE ARE IS PLAYING 
DO YOU WANT TO GUESS OR PASS? PASS 
MRS. BUNKER? 
UNSATISFACTORY ANSWER. 
TRY THE LAST NAME ONLY..... 
MRS. BUNKER?CORRECT !! 
NO CLUE WORD... SORRY 
DO YOU WANT TO GUESS OR PASS? PASS 
STOP 
The user could become quite involved in the game, answering 
the questions and trying to solve the puzzle. 
What's more, you can change the string expression in line 
12070 and the DATA in line 11020 to fit your own particular needs. 
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A$ = L$(Q) 


MESSAGE 


PRINT 
INSTRUCTIONS 
READ DATA 
OUTPUT 
QUESTIONS 
А%-В%(О) 
YES 


PRINT 
CLUE WORDS 


«c». d : GUESS 
^ YES 


YES 
| GU$ =$ эы MESSAGE 
GOTO 
SECOND HALF = 


PRINT 
INSTRUCTIONS s ae | 
Ї_ PASS 


РНІМТ 
QUESTION 


YES YES 


PRINT 
CLUE LETTER(S) 


MESSAGE 


Fig. 4-4. The flowchart for Computer Concentration. 


With the second half of the game you can add more words at line 
15000 (W$) or change them to whatever your needs. See Fig. 4-4 
for the flowchart for this program. 


Program Listing 


100 
110 
120 
130 


140 


CLS: DIM W$(17): CLEAR 550 

PRINT: К--1 

PRINT TAB(15),“COMPUTER CONCENTRATION”: PRINT 
PRINT“YOU WILL BE GIVEN SEVERAL DIFFERENT QUES- 
TIONS” 

PRINT“TO ANSWER. IF YOU ANSWER EACH QUESTION” 
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150 
160 
170 
180 
190 
195 
200 
210 
220 
260 


270 
280 
290 
300 
310 
330 
340 


345 
350 
360 
370 


380 


390 
400 
410 
420 
430 


440 
450 
460 
470 


480 
490 
900 
510 


520 
530 
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PRINT“SUCCESSFULLY, CLUE WORD ТО” 
PRINT“THE PUZZLE WILL BE PRINTED.” 
PRINT“YOU MUST PLACE THESE WORD(S)” 
PRINT“TOGETHER TO MATCH WHAT THE COMPUTER” 
PRINT“HAS IN ITS MEMORY.” 

GOSUB 200:GOTO 270 

PRINT: PRINT"PRESS ANY KEY TO BEGIN.” 
A$=INKEY$:IF A$=“ ” THEN 210 

C=0:Q=1:NN=0 

S$=" 6S C$=":":X$=“UNSATISFACTORY ANSWER.”: RE- 
TURN 

CLS 

PRINT“THE THEME FOR THIS PORTION WILL” 
PRINT“BE TELEVISION. YOUR ANSWERS” 
PRINT“WILL BE THE FILL IN TYPE.” 

PRINT“THE ANSWER TO THE PUZZLE” 
PRINT“WILL BE EITHER A SENTENCE” 

PRINT“OR A STATEMENT.” 

GOSUD 7000: GOSUD 98000: GOSUD 9000 

PRINT"USED TO BE ONE OF CHARLIE'S ANGELS ”; 
INPUT A$ 

IF A$< > B$(Q) THEN GOSUB 10000 

GOSUB 7000:GOSUB 390:GOSUB 11000:GOSUB 
12000: GOSUB 9000: GOTO 400 

PRINT"CORRECT !!*:Q-Q--I: RETURN 
PRINT"ALIEN BEINGS FROM A DYING PLANET ”; 
INPUT A$ 

IF A$« > B$(Q) THEN GOSUB 10000 

GOSUB 7000:GOSUB 390:GOSUB 11040: GOSUB 
12000: GOSUB 9000 

PRINT"AGENT AGAINST T.H.R.U.S.H. ”; 

INPUT A$ 

IF А$< > B$(Q) THEN GOSUB 10000 

GOSUB 7000:GOSUB 390:GOSUB 11040: GOSUB 
12000: GUSUB 9000 

PRINT"RATED BEST T.V. MINISERIES EVER ”; 
INPUT A$ 

IF A$< > B$(Q) THEN GOSUB 10000 

GOSUB 70000:GOSUB 390: GOSUB 11040:GOSUB 
12000: GOSUB 9000 

PRINT"DAYTIME SOAP WITH NURSES ”; 

INPUT A$ 


540 
550 


560 
570 
580 
590 


600 
610 
620 
630 


640 
650 
660 
670 


680 
690 
700 
710 
720 


730 
740 
750 
760 


770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 


IF A$< > B$(Q) THEN GOSUB 10000 

GOSUB 7000:GOSUB 390:GOSUB 11040:GOSUB 12000: 
GOSUB 9000 

PRINT“MRS. BUNKER ”; 

INPUT A$ 

IF A$< > B$(Q) THEN GOSUB 10000 

GOSUB 7000:GOSUB 390:GOSUB 11040:GOSUB 12000: 
GOSUB 9000 

PRINT“HE PORTRAYED PERRY MASON”; 

INPUT A$ 

IF A$< >B$(Q) THEN GOSUB 10000 

GOSUB 7000:GOSUB 390:GOSUB 11040:GOSUB 12000: 
GOSUB 9000 

PRINT“CALL LETTERS FOR NEW RADIO T.V. SERIES”; 
INPUT A$ 

IF A$<>B$(Q) THEN GOSUB 10000 

GOSUB 7000:GOSUB 390:GOSUB 11040:GOSUB 12000: 
GOSUB 9000 

PRINT“SAID TO CONTAIN TOO MUCH VIOLENCE” 
PRINT“SO MUCH THIS SHOW WAS CANCELLED”; 

INPUT A$ 

IF A$< > B$ (Q) THEN GOSUB 10000 

GOSUB 7000:GOSUB 390:GOSUB 11040:GOSUB 12000: 
GOSUB 9000 

РКІМТ“5ТАК OF BLACK SHEEP ”; 

INPUT A$ 

IF A$< > B$(Q) THEN GOSUB 10000 

GOSUB 7000:GOSUB 390:GOSUB 11040:GOSUB 12000: 
GOSUB 9000 

CLS:GOSUB 7000:GOSUB 9000 

PRINT“YOU SHOULD'VE GUESSED THE PUZZLE WITH" 
PRINT“ALL THOSE CLUE WORDS.” 

PRINT“THIS HALF OF THE GAME WILL DEAL WITH” 
PRINT“GENERAL KNOWLEDGE.” 

PRINT"YOU'LL HAVE SEVERAL QUESTIONS AGAIN,” 
PRINT“BUT INSTEAD OF CLUE WORDS, YOU’LL ONLY” 
PRINT“HAVE LETTERS TO WORK WITH. YOU MUST” 
PRINT“PLACE THESE LETTERS TOGETHER AND MATCH” 
PRINT“THE COMPUTER EXACTLY..... GOOD LUCK !!” 
GOSUB 200: GOSUB 15000:GOSUB 9000:R=2:Q=1:5=9 | 
L$(Q)=“T”:L$(Q+Q)=L$(Q):L$(R+Q)=“F”:L$(R*R)=L$(Q):L$(R*R+Q)=“F” 
L$(S-(R+Q))="F":L$(S-R)="B":L$(S-Q)="C":L$(S)="A":L$(5S+Q)="C" 
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920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 


IAN 
у) 


1110 
1120 
1130 
1140 
1150 
1160 
1170 
1175 
1177 
1180 
1190 
1200 
1210 
1220 
1230 
1249 
1250 


1260 
1270 
1280 
1290 
1300 


110 


PRINT“A HEXAGON HAS SIX ANGLES AND SIX SIDES.” 
РКІМТ“Т/Ғ)”; 

INPUT A$ 

IF A$< >L$(Q) THEN GOSUB 10000:GOTO 970 

GOSUB 7000: GOSUB 390: GOSUB 14000: GOSUB 9000 
PRINT“OPPOSITE IS ANTAGONISTIC.” 

PRINT“(T/F)”; 

INPUT A$ 

IF A$< >L$(Q) THEN GOSUB 10000:GOTO 1020 

GOSUB 7000:GOSUB 390:GOSUB 14000:GOSUB 9000 
PRINT“MAKING UP THE LARGEST PART OF A” 
PRINT“COMPUTER IS TRANSISTORS.” 

PRINT“(T/F)”; 

INPUT A$ 

IF A$< >L$(Q) THEN GOSUB 10000:GOTO 1080 

GOSUB 7000:GOSUB 390:GOSUB 14000:GOSUB 9000 
PRINT“PRICELESS IS TO BE INVALUABLE.” 
РКІМТ“Т/Ғ)”; 

INPUT Аф 

IF A$< >L$(Q) THEN GOSUB 10000: GOTO 1130 

GOSUB 7000:GOSUB 390:GOSUB 14000:GOSUB 9000 
PRINT“A COMPUTER CAN BE TRAINED WITHOUT” 
PRINT“THE USE OF A KEYBOARD.” 

PRINT“(T/F)”; 

INPUT A$ 

IF A$< >L$(Q) THEN GOSUB 10000 

PRINT“EVEN WHEN LOADING FROM A RECORDER,” 
PRINT"YOU MUST USE THE KEYBOARD !!”СОТО 1190 
GOSUB 7000:GOSUB 390:GOSUB 14000:GOSUB 9000 
PRINT“FUD IS THE TAIL OF AN ELEPHANT.” 
РКІМТ“Т/Ғ)”; 

INPUT A$ 

IF A$< >L$(Q) THEN GOSUB 10000:GOTO 1240 

GOSUB 7000:GOSUB 390: GOSUB 14000:GOSUB 9000 
PRINT THE NEAT FOUK QUESTIONS WILL BE MULTIPLE 
PRINT“CHOICE. SELECT ONLY ONE LETTER PER QUES- 
TION.” 

GOSUB 9000 

PRINT"A LUNAR MONTH CONTAINS HOW MANY DAYS”; C$ 
PRINT'(A) 20 (B) 29.5 (С) 29.3 (D) 30” 

INPUT A$ 

IF A$< >L$(Q) THEN GOSUB 10000:GOTO 1320 


1310 
1320 


1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1415 
1420 
1430 


1440 
1450 
1460 
1470 
1480 
1490 
1500 
1520 
1530 


1540 
7000 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8200 
9000 
9010 


GOSUB 7000:GOSUB 390:GOSUB 14000:GOSUB 9000 


PRINT"THEREFORE, А LUNAR YEAR WOULD CON- 
TAIN”; C$ 

PRINT'(A) 352 DAYS (В) 351 DAYS (С) 354 1/3 DAYS" 
INPUT A$ 


IF A$< >L$(Q) THEN GOSUB 10000:GOTO 1370 

GOSUB 7000:GOSUB 390:GOSUB 14000:GOSUB 9000 
PRINT“SO THEN LUNAR IS MEASURED BY THE”;C$ 
PRINT"(A) MOON (B) SUN (С) EARTH (D) NONE OF THESE" 
INPUT A$ 

IF A$< >L$(Q) THEN GOSUB 10000: GOTO 1415 

GOSUB 7000: GOSUB 390: GOSUB 14000: GOSUB 9000 
РКІМТ“ТНІ5 IS THE FINAL QUESTION ..... P 
PRINT"ZAMOUSE IS А” C$ 

PRINT“(A) GERMAN MOUSE (B) SOUTHERN FISH (C) WEST 
AFRICAN BUFFALO" 

INPUT A$ 

IF A$« >L$(Q) THEN GOSUB 10000: GOTO 1470 

GOSUB 7000: GOSUB 390: GOSUB 14000: GOSUB 9000 
PRINT'SORRY... THAT WAS YOUR FINAL QUESTION." 
PRINT" THE CLUE WORD WAS”; C$; S$; W$ 

PRINT 

PRINT"THAT'S THE END OF BOTH ROUNDS . .... å 
PRINT 

РКІМТ“5О THAT CONCLUDES ..... COMPUTER CON- 
CENTRATION !!" 

END 

FOR XX=1 TO 1000:NEXT: RETURN 

FOR I=1 TO 10:READ B$(D: NEXT 

DATA FAWCETT 

DATA THE INVADERS 

DATA SMART 

DATA ROOTS 

DATA DOCTORS 

DATA EDITH 

DATA BURR 

DATA WKRP 

DATA WILD WILD WEST 

DATA CONRAD 

RETURN 

PRINT: PRINT 

RETURN 
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10000 
10020 
10030 
11040 


10050 
10060 
11000 
11010 
11020 
11030 
11040 


11045 
11050 
11055 
11060 
11065 
11070 


11075 
11076 
11078 
11079 
11080 
11085 
11090 
12000 
12010 
12020 
12030 
12040 


19045 
12050 


12060 
12070 


12080 
12090 
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GOSUB 7000 

PRINT X$:IF R=2 THEN 13000 

IF Q=9 THEN 10050 

IF LEN(A$) > =12 THEN PRINT“TRY THE LAST NAME 
ONLY..... 4 

GOSUB 9000 

ON Q GOTO 350, 400, 440, 480, 520, 560, 600, 640, 680, 730 
REM SELECT PART OF PUZZLE 

FOR M=1 TO 9:READ P$(M):K$=K$+P$(M): NEXT 

DATA THE, GAME, YOU, COMPUTER, PLAYING IS 
DATA ARE, CALLED CONCENTRATION 

IF Q>2 THEN N=INT(2*RND(0)+1):IF N=1 AND NN< >3 
THEN PRINT"NO 

CLUE WORD... SORRY.”: NN=NN+1:RETURN 
P=INT(4*RND(O)+1):0N Р GOTO 11050, 11055, 11060, 11065 
Q$=MIDS(K$, 19,P+3):GOTO 11070 

WS$S-LEFT$(K$,9/3): СОТО 11070 
V$-MID$(K$,26,2): СОТО 11070 

U$=MID&(K$,31,P+2) 
T$=Q$+S$+W$+S$+V$+S$+US:IF TT=LEN(T$) THEN 
11045 

IF LEN(T$) >=18 THEN T$=T$+S$+MID9$(KG, 11,8) 

IF TT >=27 THEN T$=T$+S$+MID$(K$, 28,3) 

IF TT >=31 THEN T$=T$+S$+MIDS$(K$,4,4) 

IF TT > = 36 THEN T$=T$+5$+MID$(K$,8,3) 
PRINT"CLUE WORD(S) TO PUZZLE"; C$; T$ 

IF Q=11 THEN PRINT“THIS IS THE FINAL CLUE..... " 
TT+LEN(T$): RETURN 

PRINT"DO YOU WANT TO GUESS OR PASS"; 

INPUT G$:IF R=2 THEN 14060 

IF G$="PASS" THEN G$=" ”: RETURN 

IF G$="GUESS” THEN 12050 

PRINT"TRY.ENTERING THE WORD GUESS OR PASS, 
ONLY." 

COTO 12000 

PRINT“ENTER YOUR GUESS”; 

INPUT GU$ 

IF GU$< >“THE GAME YOU ARE PLAYING IS CALLED 
COMPUTER CONCENTRATION” 

THEN 12090 

GOTO 12200 

PRINT"UNSATISFACTORY RESPONSE, SORRY... .” 


12100 
12200 
12210 
12220 
12230 
12240 
12250 
13000 


13010 
14000 
14020 
14025 
14030 
14040 
14045 
14050 
14060 
14070 
14080 
14090 
14100 
14110 
14120 
14130 
14140 
15000 
15010 
15020 
15030 
15040 
15050 
15060 
15070 
15080 
15090 
15100 
15200 
15300 


G$=" "RETURN 

GOSUB 9000 

PRINT"FANTASTIC 111” 

PRINT"YOU'VE SOLVED THE BLOODY PUZZLE !!!" 
IF R< > 3 THEN GOSUB 7000:GOSUB 9000:GOTO 800 
REM END 

GOTO 1490 

PRINT“NO CLUE LETTER..... ":REM NO CLUE LETTER 
WITH INCORRECT ANSWER 

GOSUB 9000 

REM SELECT RANDOM LETTER 

Y=INT (10*RND(0)+1):IF A(Y)=0 THEN 14020 
LT$=LT$+MID$ (WG, Y, 1) 

IF LT$=“ “ THEN 14020 

PRINT“YOUR CLUE LETTER(S) ARE”;C$;S$;LT$ 
A(Y)=0 

GOTO 12000:REM GUESS/PASS 

IF G$< >“GUESS” THEN RETURN 

GOSUB 9000 

PRINT“ENTER YOUR GUESS”; 

INPUT GU$ 

IF GU$« > W$ THEN 14120 

R=3:GOTO 12200 


PRINT'SORRY..... ”Х% 
GOSUB 9000 

RETURN 

REM SELECT RANDOM WORD 


W=INT(S*RND(0)+1) 

ON W GOTO 15030, 15040, 15050, 15060, 15070 
W$="LASER BEAM”:GOTO 15080 
W$="COMPUTER ART”:GOTO 15080 
W$="PRACTICAL GUESS":GOTO 15080 
W$="RECORDER”:GOTO 15080 
W$="MISSMATCH” 

FOR X=1 TO 10 

READ А(Х) 

NEXT 

DATA 1,2,3,4,5,6,7,8, 9, 10 

RETURN 
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Chapter 9 


Meteor 


Your planet is in danger! Å large meteor is headed for it and it is 

sure to destroy the entire planet. You have a predetermined 

amount of missiles with which to destroy or alter the course of the 

meteor. The computer can also fire for you if you wish; just enter 

99 when you are asked which angle you want the missile launched. 
Good Luck!! 


Sample Run 


Жжжж METEOR RK A 
THIS SIMULATION WILL TEST YOUR NERVES TO THEIR 
BREAKING POINT. WHILE YOU’RE SITTING HERE READING 
THESE INSTRUCTIONS A METEOR IS HEADING FOR YOUR 
PLANET. 
CERTAIN DESTRUCTION WILL BE EVIDENT IF THIS METEOR 
COLLIDES WITH YOUR PLANET. 
ALL YOU HAVE TO DO TO PREVENT THIS IS GET A DIRECT HIT 
ON THE METEOR (DOESN’T HAVE TO BE DEAD CENTER). 
JUST FOLLOW THE PROGRAM THROUGH. IF AT ANYTIME YOU 
WANT THE COMPUTER TO FIRE FOR YOU ENTER 99 FOR 
AN ANGLE.... 
PRESS А КЕҮ..... 
CURRENT STATUS: 
METEOR SPEED: 436 MILES PER HOUR 
DISTANCE BETWEEN YOU AND METEOR: 1745 MILES 
SIZE OF METEOR: 6 MILES ACROSS 
METEOR IS ON A PRESENT ANGLE BETWEEN 48 AND 64 DE- 
GREES. 
YOU HAVE 20 MISSILES TO DESTROY OR ALTER ITS COURSE. 
THIS STATUS REPORT WILL BE PRINTED AFTER EACH 
MISSILE HAS BEEN FIRED AND ALLOWED TIME TO REACH ITS 
DESTINATION. 
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INPUT ANGLE TO LAUNCH MISSILE? 64 
YOU WERE 9 DEGREES OFF ON THAT SHOT..... 
CURRENT STATUS: 
METEOR SPEED: 446 MILES PER HOUR 
DISTANCE BETWEEN YOU AND METEOR: 1645 MILES 
SIZE OF METEOR: 6 MILES ACROSS 
METEOR IS ON AN ANGLE BETWEEN 47 AND 63 DEGREES. 
YOU HAVE 19 MISSILES TO DESTROY OR ALTER ITS COURSE. 
INPUT ANGLE TO LAUNCH MISSILE? 51 
YOU WERE -4 DEGREES OFF ON THAT SHOT..... 
CURRENT STATUS: 
METEOR SPEED: 456 MILES PER HOUR 
DISTANCE BETWEEN YOU AND METEOR: 1545 MILES 
SIZE OF METEOR: 6 MILES ACROSS 
METEOR IS ON AN ANGLE BETWEEN 43 AND 59 DEGREES. 
YOU HAVE 18 MISSILES TO DESTROY OR ALTER ITS COURSE. 
INPUT ANGLE TO LAUNCH MISSILE? 99 
ГУЕ MISCALCULATED THE MISSILE BY -1 DEGREES. 
CURRENT STATUS: 
METEOR SPEED: 466 MILES PER HOUR 
DISTANCE BETWEEN YOU AND METEOR: 1445 MILES 
SIZE OF METEOR: 6 MILES ACROSS 
METEOR IS ON AN ANGLE BETWEEN 42 AND 58 DEGREES. 
YOU HAVE 17 MISSILES TO DESTROY OR ALTER ITS COURSE. 
INPUT ANGLE TO LAUNCH MISSILE? 50 
YOU'VE MADE A HIT TO THE METEOR... BUT ITS COURSE 
HASN’T CHANGED ENOUGH TO HELP YOUR PLANET..... 
CURRENT STATUS: 
METEOR SPEED: 476 MILES PER HOUR 
DISTANCE BETWEEN YOU AND METEOR: 1345 MILES 
SIZE OF METEOR: 6 MILES ACROSS 
METEOR IS ON AN ANGLE BETWEEN 39 AND 55 DEGREES. 
YOU HAVE 16 MISSILES TO DESTROY OR ALTER ITS COURSE. 
INPUT ANGLE TO LAUNCH MISSILE? 45 
CONGRATULATIONS !! YOU'VE ALTERED THE METEOR'S 
COURSE !! 
SHALL WE TRY THIS SIMULATION ONCE MORE? NO 
TRY SOME PRACTICE AT RUBBER DUCKS THEN !! 
END 

Don't let the meteor get within 50 miles of the planet, there’s 
no way to stop it when it gets that close. See Fig. 5-1 for the 
flowchart for this program. 
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BEGINNING 
MESSAGE 


SET SIZE 
OF METEOR 
SET DISTANCE 


TO PLANET 


SET SPEED 
OF METEOR 


SET AMOUNT 
OF MISSLES 


OUTPUT STATUS 
INPUT ANGLE 
TO LAUNCH MISSLE 


NO 
<i => METEOR DESTROYED 
" YES MESSAGE 


OUT OF MISSLES 
TOO LATE MESSAGE 


Fig. 5-1. The flowchart for Meteor. 


Program Listing 
10 CLS:PRINT:PRINT TAB(20);^**** METEOR ****” 
15 REM SET METEOR SIZE 
20 SM=INT(10*RND(0)+1): IF SM < 4 THEN 20 
25 REM SET DISTANCE BETWEEN METEOR & PLANET 
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DM=INT(5000*RND(0)+1):IF DM < 1000 THEN 30 

REM SET METEOR SPEED 

MS=INT(500*RND(0) +10):IF MS < 250 THEN 40 

REM METEOR ANGLE TO PLANET 
MA=INT(90*RND(0)+5):IF MA < 40 THEN 50 

IF A=1 THEN 210 

PRINT“THIS SIMULATION WILL TEST YOUR NERVES TO 
THEIR” 

PRINT“BREAKING POINT. WHILE YOU’RE SITTING HERE 
READING THESE” 

PRINT“INSTRUCTIONS A METEOR IS HEADING FOR YOUR 
PLANET.” 

PRINT“CERTAIN DESTRUCTION WILL BE EVIDENT IF 
THIS METEOR” 

PRINT“COLLIDES WITH YOUR PLANET.” 

PRINT“ALL YOU HAVE TO DO TO PREVENT THISIS TO GET 
A DIRECT HIT ON THE” 

PRINT“METEOR (DOESN'T HAVE TO BE DEAD CENTER).” 
PRINT JUST FOLLOW THE PROGRAM THOUGH. IF AT 
ANYTIME YOU” 

PRINT“WANT THE COMPUTER TO FIRE FOR YOU ENTER 
99 FOR” 

PRINT“AN ANGLE..... " 

REM GET AMOUNT OF MISSILES 

MI-INT(30*RND(0) 4:5): IF MI < 15 THEN 210 

GOSUB 300: GOSUB 220: GOTO 350 

PRINT 

PRINT"CURRENT STATUS:" 

PRINT“METEOR SPEED: ”;MS;“MILES PER HOUR" 
PRINT“DISTANCE BETWEEN YOU AND METEOR: 

” DM;"MILES" 

PRINT'SIZE OF METEOR: ”;SM; "MILES ACROSS" 
PRINT"METEOR IS ON AN ANGLE BETWEEN"; (MA-8); 
“AND”; (MA+8); "DEGREES:" 

PRINT“YOU HAVE”; MI; “MISSILES TO DESTROY OR ALTER 


ITS COURSE.” 
IF R > 1 THEN RETURN 


PRINT 
PRINT“THIS STATUS REPORT WILL BE PRINTED AFTER 


EACH” 

PRINT“MISSILE HAS BEEN FIRED AND ALLOWED TIME TO 
REACH ITS” 

PRINT“DESTINATION.”: RETURN 


300 PRINT 

305 РКІМТ“РКЕ55 A KEY..... ý 

310 A$=INKEY$:IF A$=“ " THEN 310 

320 CLS:RETURN 

350 PRINT 

355 PRINT“INPUT ANGLE TO LAUNCH MISSILE";: Rz2 

360 INPUT ML:MI=MI-1: IF MI < 1 THEN 800 

370 REM CHECK FOR COMPUTER SHOT 

375 GOSUB 850:GOSUB 600 

380 IF ML=MA THEN 450 

390 IF ML < > MA THEN 400 

400 PRINT 

410 PRINT“YOU WERE”; (ML-MA);“DEGREES OFF THAT 
SHOT awe: 4 | 

420 DM=DM-100:MS=MS+10 

425 MAzMA-INT(S*RND(0)4-2) 

430 IF DM < 500 THEN РКІМТ“ТНЕ METEOR IS LESS THAN 500 
MILES OUT 1!” 

435 IF DM < 50 THEN 860 

440 GOSUB 220:GOTO 350 

450 I=INT(2*RND(0)+1):ON I GOTO 455,485 

455 PRINT 

460 PRINT"YOU'VE MADE A HIT TO THE METEOR... BUT ITS 
COURSE” 

470 PRINT"HASN'T CHANGED ENOUGH TO HELP YOUR 
PLANET..... ші 

480 GOTO 420 

485 PRINT 

490 PRINT"CONGRATULATIONS !! YOU'VE ALTERED THE 
МЕТЕОК5 COURSE !!” 

495 PRINT'IT'S HEADED FOR ANOTHER GALAXY..... ° 

500 GOTO 900 

600 IF ML < > 99 THEN RETURN 

605 GOSUB 850 

610 CS-INT(MA*RND(0) 

615 IF CS < (MA-5) THEN 610 

620 CM=CS+INT(8*RND(0)+1) 

630 IF CM=MA THEN 660 

640 IF ABS (CM-MA) < 4 THEN 720 

650 IF ABS (CM-MA) > 4 THEN 740 

660 I=INT(2*RND(0)+1) 

665 ON I GOTO 670,690 
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670 
675 


680 
685 
690 
695 


700 
710 
720 


730 
740 
745 


750 
800 
810 
815 


820 


830 
840 
850 
855 
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870 


880 


890 
900 


атл 


w -.-.. 


920 
930 
940 
950 
960 


970 
980 
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PRINT 

PRINT'SORRY . . . I'VE HIT THE METEOR, BUT ONLY 
CHANGED” 

РКІМТЧТ5 COURSE SLIGHTLY..... " 

GOTO 420 

PRINT 

PRINT"HOW WAS THAT...I'VEDESTROYED THE METEOR 
COMPLETELY !?" 

PRINT" YOU ARE SAFE FROM DESTRUCTION NOW..... ^ 
GOTO 900 

PRINT TVE MISCALCULATED THE METEOR ВҮ”(СМ/ 
МА) "DEGREES" 

GOTO 685 

PRINT 

РКІМТ“ГҮЕ OVERSHOT IT THIS TIME ВҮ”;(СМ- 
MA); “DEGREES” 

GOTO 730 

REM OUT OF MISSILES 

PRINT 

PRINT“SORRY . . . YOUR PLANET IS SURE TO BE DE- 
STROYED NOW,” 

PRINT"YOU'VE EXHAUSTED YOUR AMOUNT OF MISSILES, 
SAY GOODBYE” 

PRINT“TO YOUR PLANET..... ” 

GOTO 900 

FOR T=0 TO DM:NEXT 

RETURN 

CLS: PRINT 

РКІМТ“ТНЕ METEOR IS NOW LESS THAN 50 MILES OUT— 
YOU CAN’T” 

РКІМТ“5ТОР IT NOW . . . EVEN THOUGH YOU 
HAVE”; MI; “MISSILES” 

PRINT'LEFT . . . SORRY—THAT’S IT." 

FOR I=1 TO 2500:NEXT 

PRINT 

PRINT 

PRINT"SHALL WE TRY THIS SIMULATION ONCE MORE”; 
INPUT A$ 

IF A$ < > “NO” THEN R=0:A=1:GOTO 10 

PRINT 


PRINT“TRY SHOOTING AT SOME RUBBER DUCKS NOW !!” 
END 


Life Support 


You are on a mission in outer space for your country. A meteor hit 
one of the outer fuel lines on your ship and you left the safety of 
your cabin to repair it. Returning to the cabin you snagged your life 
support line and broke it. You must enter the hatch before your 
reserve tanks empty of oxygen. 

Good luck!! 


Sample Run 


жж LIFE SUPPORT *** 
INSTRUCTIONS: 
THE INSTRUCTIONS TO LIFE SUPPORT ARE SIMPLE; YOU’VE 
LEFT THE INSIDE OF YOUR SPACESHIP TO REPAIR A FUEL 
LINE THAT HAD A SMALL LEAK IN IT CAUSED BY A METEOR. 
ON YOUR WAY BACK INTO THE SHIP YOU CAUGHT YOUR LIFE 
SUPPORT LINE AND BROKE IT. LUCKY YOU... . YOU ARENT 
FLOATING AWAY IN SPACE, BUT YOUR RESERVE TANKS 
HAVE ONLY A MINIMUM AMOUNT OF OXYGEN LEFT. 
YOU MUST REACH THE HATCH ON YOUR SHIP BY FIRING 
THE RIGHT AMOUNT OF THRUSTS FROM YOUR JETTISON 
TANKS BEFORE YOUR OXYGEN RUNS OUT.... 
PRESS ENTER/RETURN? 
POSITIVE THRUSTS (TO MOVE TOWARDS THE SHIP) ARE: 
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BETWEEN 1 AND 20 
NEGATIVE THRUSTS (TO MOVE AWAY FROM POSITIONS) ARE: 
BETWEEN -1 AND -30 
WHEN ENTERING A POSITIVE THRUST ENTER ONLY THE 
NUMBER, 
WHEN ENTERING A NEGATIVE THRUST ENTER A MINUS (~) 
SIGN THEN THE NUMBER. 
DISTANCE TO HATCH IS: 26 FEET 
OXYGEN LEFT: 15 MINUTES 
ENTER YOUR THRUST? 17 
DISTANCE TO HATCH IS: 15 FEET 
OXYGEN LEFT: 9 MINUTES 
ENTER YOUR THRUST? 8 
DISTANCE TO HATCH IS: 10 FEET 
OXYGEN LEFT: 3 MINUTES 
YOU ONLY HAVE 3 MINUTES OF OXYGEN LEFT !! 
ENTER YOUR THRUST? 3 
DISTANCE TO HATCH IS: 8 FEET 
OXYGEN LEFT: 2.31818 MINUTES 
YOU ONLY HAVE 2.31818 MINUTES OF OXYGEN LEFT !! 
ENTER YOUR THRUST? 5 
DISTANCE TO HATCH IS: 4 FEET 
OXYGEN LEFT: —3.68182 MINUTES 
DO YOU FEEL YOURSELF GASPING FOR AIR? 
YOU'VE RUN OUT OF OXYGEN !! 
DO YOU FEEL LIKE BREATHING LONG ENOUGH TO TRY AGAIN? 
YES 
*** LIFE SUPPORT *** 
PRESS ENTER/RETURN? 
DISTANCE TO HATCH IS: 17 FEET 
OXYGEN LEFT: 18 MINUTES 
ENTER YOUR THRUST? 12 
DISTANCE TO HATCH IS: 9 FEET 
OXYGEN LEFT: 12 MINUTES 
ENTER YOUR THRUST? 6 
DISTANCE TO HATCH IS: 5 FEET 
OXYGEN LEFT: 6 MINUTES 
ENTER YOUR THRUST? 4 
DISTANCE TO HATCH IS: 10.4 FEET 
OXYGEN LEFT: 5.09091 MINUTES 
YOU ONLY HAVE 5.09091 MINUTES OF OXYGEN LEFT !! 
ENTER YOUR THRUST? 5 
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DISTANCE TO HATCH IS: 7.4 FEET 
OXYGEN LEFT: .909091 MINUTES 
DO YOU FEEL YOURSELF GASPING FOR AIR ? 
YOU'VE RUN OUT OF OXYGEN !! 
DO YOU FEEL LIKE BREATHING LONG ENOUGH TO TRY AGAIN? 
NO 
THAT'S FINE, I NOTICED YOU GASPING BEFORE 
WE EVEN MADE IT THIS FAR..... 
END 
You'll note from the above run that it might be quite difficult to 
get back into your ship... . but it is possible! See Fig. 5-2 for the 
flowchart for this program! 


PRINT 
INSTRUCTIONS 


SET 
DISTANCE 


YES 


PRINT 
DISTANCE 
OX-SUPPLY 


PRINT 
SAFE MESSAGE 


Fig. 5-2. The flowchart for Life Support. 
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Program Listing 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 


110 


CLS: DIM Р(20), T(20) 

РКІМТ 

PRINT TAB(20);“*** LIFE SUPPORT ***” 

IF R>1 THEN 170:REM ROUND>1 
PRINT“INSTRUCTIONS:” 

PRINT“THE INSTRUCTIONS TO LIFE SUPPORT ARE 
SIMPLE; YOU’VE” 

PRINT“LEFT THE SAFETY OF YOUR SPACESHIP TO REPAIR 
A FUEL” 

PRINT“LINE THAT HAD A SMALL LEAK IN IT CAUSED BY A 
METEOR.” 

PRINT“ON YOUR WAY BACK TO THE SHIP YOU CAUGHT 
YOUR LIFE” 

PRINT“SUPPORT LINE AND BROKE IT. LUCKY YOU.... YOU 
ARENT” 

PRINT"FLOATING AWAY IN SPACE, BUT YOUR RESERVE 
TANKS" 


DDINTHETAWE ONT 
АО ХАЧ A AL V da М2 


LEFT.” 

PRINT 

PRINT“YOU MUST REACH THE HATCH ON YOUR SHIP BY 
FIRING” 

PRINT“THE RIGHT AMOUNT OF THRUSTS FROM YOUR 
JETTISON TANKS” 

PRINT“BEFORE YOUR OXYGEN RUNS OUT..... " 

REM SET DISTANCE TO HATCH 

D-INT(30*RND(0)-HD:IF D < 15 THEN 180 

REM SET OXYGEN SUPPLY 

OX=INT(20* RND(0)+3):IF OX < 15 THEN 200 

REM SET THRUST AMOUNT TO REACH HATCH 

FOR H-1 TO 10 

T(H)-(H/2)*2) 

FOR I=1 TO 10 

тәм) TS) 2) TINT GO RIND(QTO) 

P(D-- (T(H)- 30) 

NEXT LH 

GOSUB 500: GOSUB 520 

PRINT:IF R > 1 THEN 370 

PRINT“POSITIVE THRUSTS (TO MOVE TOWARD THE SHIP) 
ARE:" 

PRINT“BETWEEN 1 AND 20" 
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320 
330 
340 


350 


360 
370 
380 
390 
391 
395 


400 
410 


420 
430 
440 
450 
460 
470 
480 
490 
495 
900 
510 
520 
530 
540 
550 
560 
570 
575 
580 


590 


600 
610 


PRINT“NEGATIVE THRUSTS (TO MOVE AWAY FROM 
POSITIONS) ARE:” 

PRINT'BETWEEN --1 AND ~30” 

PRINT 

PRINT“WHEN ENTERING A POSITIVE THRUST ENTER 
ONLY THE NUMBER” 

PRINT“WHEN ENTERING A NEGATIVE THRUST ENTER A 
MINUS (-)” 

РКІМТ“5ІСМ THEN THE NUMBER." 

PRINT 

PRINT“DISTANCE TO HATCH IS: D;"FEET" 
PRINT"OXYGEN LEFT: ”; OX; "MINUTES” 

GOTO 560 

IF SGN(D) < 0 PRINT"ENTER A NEGATIVE THRUST— 
YOU'VE PASSED UP THE SHIP !!” 

PRINT: INPUT"ENTER YOUR THRUST”; X 

IF X > 20 THEN PRINT'I SAID NOT GREATER THAN 20 
СОТО 400 

FOR I=1 TO 10 

IF ABS(X-T()) > З AND ABS(X-P(D) > 3 THEN NEXT:GOTO 
СОТО 480: REM MOVE О.К. —MAYBE 
OX=OX-(INT(ABS(X*T(2)))/(T(1)*5.5)) 
D=D+(ABS(D-T(1)/INT(OX+2))) 

GOTO 495 

OX=0X-(INT(ABS(T(4)/2) +1.5)) 

D=D-INT((X)/1.5) 

GOSUB 680:GOTO 370 

INPUT"PRESS ENTER/RETURN?”; X$ 

CLS: RETURN 

IF T(4) > 11 THEN T(4)=9 

IF ТО) > 13 THEN T(2)=10 

IF Та) > 12 THEN T(1)=8 

RETURN 

IF INT(OX) < = 1 THEN 590 

IF INT(OX) < 8 THEN 580 

GOTO 395 

PRINT: PRINT"YOU ONLY HAVE”; OX; "MINUTES OF OXYGEN 
LEFT !”:GOTO 395 

PRINT: PRINT"DO YOU FEEL YOURSELF GASPING FOR AIR 
э» 

PRINT"YOU'VE RUN OUT OF OXYGEN !!” 

PRINT 


125 


620 


630 
640 


650 


660 
670 
680 
690 
700 
710 
720 
730 
740 
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PRINT“DO YOU FEEL LIKE BREATHING LONG ENOUGH ТО 
TRY AGAIN”; 

INPUT A$ 

IF РІСНТ%(А%,1)-“5” THEN R=2: FOR I=1 TO10:T()=0: 
NEXT: CLS:GOTO 20 

PRINT:PRINT“THAT’S FINE, I NOTICED YOU GASPING 
BEFORE” 

PRINT"WE MADE IT THIS FAR. .... ы 

END 

IF D=0 OR D=1 THEN 700 

RETURN 

PRINT 

PRINT"YOU'VE DONE IT !!” 

PRINT"YOU'VE MADE IT BACK TO YOUR SPACESHIP WITH" 
PRINT“OXYGEN TO SPARE 1!” 

GOTO 610 


Oil Tycoon 


This game you'll be playing a rich oil man who’s tired of sitting 
around counting his money. So your going to get out and drill your 
own well. You'll select the site, and set the r.p.m. for the drill. 
Watch out for hidden surprises. When you think you've reached the 
oil, enter 00 for an r.p.m. 


Sample Runs 


$$$ OIL TYCOON $$$ 
INSTRUCTIONS (Y/N)? Y 
YOUR IN THE BIG MONEY NOW, YOU OWN MORE THAN 20 
OIL WELLS. BUT, YOU’RE TIRED OF SITTING AROUND JUST 
COUNTING YOUR MONEY, SO YOU’RE GOING OUT ON YOUR OWN 
AND DRILL YOUR OWN WELL, YOU'LL EVEN SELECT 
THE SITE YOU WANT TO DRILL ON. 
SELECT THE SITE (BY NUMBER ONLY): 
(1) LOWER FORTY 
(2) UPPER FIFTY 
(3) BACK YARD 
ENTER YOUR SELECTION? 2 
HOW MUCH OF YOUR RICHES WOULD YOU LIKE TO 
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INVEST ON THIS SITE (UP TO $500,000.00 . 
(WITHOUT THE DOLLAR SIGN, PLEASE)? 10000 

YOU MIGHT BE RICH, BUT IT’S GOING TO TAKE MORE THAN 

$10000 

? 25000 

WE'RE AT THE SITE, YOUR RIG IS SET UP. 

WHEN YOU'RE READY TO STOP DRILLING, ENTER 00. 

ENTER THE R.P.M. FOR THE DRILL. 

(UP TO 750 R.P.M.)? 125 

THIS IS GOING TO TAKE AWHILE, 

YOU'VE ONLY DRILLED 956 FEET. 

YOU'RE WASTING MONEY AT THIS SPEED. 

SO FAR YOU'VE USED $2122 DOLLARS !! 

ENTER THE R.P.M. FOR THE DRILL. 

(UP TO 750 R.P.M.)? 320 

THIS IS GOING TO TAKE A WHILE, 

YOU'VE ONLY DRILLED 1786 FEET. 


ENTER THE R.P.M. FOR THE DRILL. 

(UP TO 750 R.P.M.)? 360 

YOUR MONEY MATTERS ON THIS SITE. 

SO FAR YOU'VE USED $5607 DOLLARS !! 
ENTER THE R.P.M. FOR THE DRILL 

(UP TO 750 R.P.M.)? 425 

YOU'RE AT 3807 FEET, 

AND USED $7167 DOLLARS. 

ENTER THE R.P.M. FOR THE DRILL. 

(UP TO 750 R.P.M.)? 550 

I CAN HEAR THE DRILL GRINDING THAT STONE !! 
YOU'RE BETTER THAN 5090 FEET DOWN NOW. 
ONLY 2064.49 FEET TO THE OIL !! 

ENTER THE R.P.M. FOR THE DRILL. 

(UP TO 750 R.P.M.)? 620 

MONEY ...MONEY...MONEY !! 

DRILLING ALMOST $11517 AWAY NOW. 


TUR TOv Y» CY YT THROM %W £ MA MAY YYN Try 19 
J21N AMIN ілі» ANGI iYi, FVN LEED L'INL L LA, 


(UP TO 750 R.P.M.)? 735 

GREAT GUNS... WE'RE ALREADY AT 6373 FEET. 
AND CONSUMED JUST ABOUT $13370 DOLLARS !! 
ENTER THE R.P.M. FOR THE DRILL 

(UP TO 750 R.P.M.)? 00 

YOU'RE NOT TOO RICH NOW, OIL MAN, 

YOU DRILLED 3289.1 FEET PAST THE OIL !! 
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INPUT SITE 
S < T 
5 >3 
МО 


SET DEPTH 
OF OIL 
INPUT 
INVESTMENT 


NO SORRY 
MESSAGE 


UPDATE 
MESSAGE 


STRUCK OIL 
MESSAGE 


| MESSAGE 
YES NO 
— r of J AV AGAIN 


Fig. 5-3. The flowchart for Oil Tycoon. 


YOU'VE STRUCK WATER AND WASTED $15117 DOLLARS !! 
WELL TYCOON, THAT’S THE END OF THIS GUSHER 
GAME. SEE YA AT THE NEXT DRILLING !! 

ARE YOU READY TO TRY AGAIN NOW? NO 

TYCOON !! 


See Fig. 5-3 for the flowchart for this program. 


—— 


Program Listing 


20 CLS:PRINT 
30 PRINT 
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40 
45 
50 
60 
70 
80 
90 


100 
110 
120 


130 
140 
150 
160 


ч г 


165 
170 
180 
190 
195 
200 
205 


210 
220 
230 
245 
250 
260 
270 


280 
285 
290 
300 
310 
320 


330 


130 


PRINT TAB(20); “$$$ OIL TYCOON $$$” 

IF C=1 THEN 140 

PRINT: PRINT“INSTRUCTIONS (Y/N)”; 

INPUT A$ 

IF A$ < >“Y” THEN 140 

CLS: PRINT 

PRINT“YOUR IN THE BIG MONEY NOW, YOU OWN MORE 
THAN 20” 

PRINT"OIL WELLS. BUT, YOU'RE TIRED OF SITTING 
AROUND JUST” 

PRINT“COUNTING YOUR MONEY, SO YOU’RE GOING OUT 
ON YOUR OWN” 

PRINT"AND DRILL YOUR OWN WELL, YOU'LL EVEN 
SELECT” 

PRINT“THE SITE YOU WANT TO DRILL ON.” 

REM SELECT SITE 

PRINT 

PRINT"SELECT SITE (BY NUMBER ONLY):” 


"YT TET 


РКІМІ 

РКІЧТ“(1) LOWER FORTY” 

РКІМТ“2) . UPPER FIFTY” 

PRINT'3 BACK YARD” 

PRINT 

INPUT"ENTER YOUR SELECTION”S 

IFS<10RS>3 THEN шыны YOU SEE THAT NUMBER 
??":GOTO 200 

КЕМ СЕТ DEPTH OF OIL 

D=(5000*RND(0)+500)*2 

IF D < 4800 THEN 220 

M=5E+05 

REM GET INVESTMENT 

PRINT 

PRINT“HOW MUCH OF YOUR RICHES WOULD YOU LIKE 
TO” 

PRINITINVEST UN THIS SITE (UP TU %500,000.00)” 
PRINT“(WITHOUT THE DOLLAR SIGN, PLEASE)”; 

INPUT V 

REM CHECK FOR ENOUGH 

REM OR NOT ENOUGH 

IF V < (M-475E+03)THEN PRINT“YOU MIGHT BE RICH, BUT 
IT’S GOING TO TAKE MORE THAN $”;V:GOTO 290 

IF V >M THEN PRINT"I SAID NO MORE THAN $”;M;“, YOU 


340 
345 
350 
355 
360 
370 
375 


380 
390 
400 
405 


410 
420 
430 
440 
450 
460 
470 
490 
500 
510 
520 
530 
550 
560 
570 
575 
580 


585 
590 
610 
620 
630 
640 
650 
670 


MUST WANT ТО THROW ІТ AWAY !!”: GOTO 290 
V1=INT(2500*RND(0)+10):IF V1 < 1500 THEN 340 
V(X)=V14+V(X) 

V2=V 

IF DX) < =0 THEN D(X)-INT(200*RND(0) 4-50) 
PRINT:IF Q=1 THEN 380 

PRINT"WE'RE AT THE SITE, YOU RIG IS SET UP.” 
PRINT"WHEN YOU'RE READY TO STOP DRILLING, ENTER 
00.” 

PRINT“ENTER THE R.P.M. FOR THE DRILL.” 
PRINT"(UP TO 750 В.Р.М.)”: 

INPUT R:IF R=00 THEN 900 

Q=1:IF R=R(X)THEN PRINT“YOU’RE AT THAT SPEED 
NOW, TURKEY !:PRINT 

: GOTO 380 

IF R > 750 THEN 500 

IF R >99 AND R <351 THEN 550 

IF R >350AND R <401 THEN 590 

IF R > 400 AND R < 501 THEN 650 

IF R > 500 AND R < 601 THEN 700 

IF R > 600 AND R < 701 THEN 750 

IF R > 700 AND R < 750 THEN 800 

IF R < 100 THEN 850 

GOSUB 1100 

PRINT"YOU'VELOST $”; V(X);“ON THIS SITE, ”; R;"R. P.M. !!” 
PRINT"YOUR DRILL JUST MELTED AT”; D; "FEET !!" 
GOTO 1010 

D1=((D-S)+R)/9 

GOSUB 1100 

PRINT“THIS IS GOING TO TAKE AWHILE,” 
PRINT"YOU'VE ONLY DRILLED”; D(X); “FEET.” 
I=INT(3*RND(0)+):IF I=2 THEN PRINT“YOU’RE WASTING 
MONEY AT 

THIS SPEED.”:GOTO 630 

GOTO 340 

D1=((D-S)+R)/8 

GOSUB 1100 

PRINT"YOUR MONEY MATTERS ON THIS SITE.” 
PRINT"SO FAR YOU'VE USED $”; V(X); "DOLLARS !!” 
GOTO 340 

D1i=((D-S)+R)/7 

GOSUB 1100 


131 


PRINT"YOU'RE AT”; D(X); "FEET." 
PRINT"AND USED $"; V(X);“DOLLARS.” 
GOTO 340 

D1=((D-S)+R)/6 

GOSUB 1100 


PRINT“I CAN HEAR THE DRILL GRINDING THAT STONE !!” 
PRINT“YOU’RE BETTER THAN”; D(X); “FEET DOWN NOW.” 
I=INT(3*RND(0)+1): IF І-1 AND D(X) «D THEN PRINT"ON- 
LY 5D(Xy;" 

FEET TO THE OIL !!” 

GOTO 340 

D1=((D-S)+R)/5 

GOSUB 1100 

PRINT'MONEY... MONEY... MONEY !!” 
PRINT"DRILLING ALMOST $”; VX); "AWAY NOW." 
I=INT(3*RND(0)+1):IF I=2 THEN PRINT"AND YOUR DRILL 
JUST BUSTED !”:GOTO 1010 

GOTO 340 


D1=(D-5)+R)/2 
GOSUB 1100 
PRINT"GREAT GUNS ... WE'RE ALREADY АТ”; О); 
“FEET.” 

PRINT"AND CONSUMED JUST ABOUT $”; VŒ); "DOLLARS 
n 

I=INT(3*RND(0)+1):IFI=3 AND V(X) >V THEN PRINT 
"THAT'S ;V(X)-V;"PAST THE AMOUNT YOU INVEST- 
ED !!" 

GOTO 340 

PRINT 

PRINT"COME ON NOW, DRILLING АТ” R;"R.P.M." 
PRINT"ISN'T GOING TO BRING IN ANYTHING, BUT" 
PRINT"MAYBE A HEADACHE !!” 

GOTO 340 

PRINT 

Ir VA) < V AND ÁDS(D-D(A)) 2500 THEN 930 

IF VX) < V AND ABS(D-D(X)) «500 THEN 980 
PRINT“TOO BAD... YOU WASTED $”; У(Х); "DOLLARS AND” 


1010 

PRINT"YOU'RE NOT TOO RICH NOW, OIL MAN,” 
IF D(X) < D THEN PRINT"YOU ONLY 
DRILLED”; D(X);“FEET, THE 


940 
950 


970 
980 
990 
1000 
1005 
1010 
1020 


1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 


OIL WAS AT”;D;“FEET !!”:GOTO 950 
PRINT“YOU DRILLED”; D(X); "FEET BEYOND THE OIL !!” 
PRINT"YOU'VE STRUCK AND WASTED $”;V@Q);“DOLLARS 
ШІ” 
СОТО 1010 
PRINT“GUSHER !!! GUSHER !!!” 
PRINT“YOU’RE RICHER THAN EVER, AND YOU” 
PRINT“STILL HAVE $”;V-V(X); “LEFT FOR" 
PRINT“ANOTHER SITE !!” 
PRINT 
PRINT“WELL RICH MAN, THAT’S THE END OF THIS 
GUSHER" 
PRINT"GAME. SEE YA AT THE NEXT DRILLING !!” 
PRINT 
PRINT"ARE YOU READY TO TRY AGAIN NOW"; 
INPUT A$ 
IF A$="YES” THEN C=1:D(X)=0:V(X)=0:GOTO 20 
PRINT 
PRINT"TYCOON !!": END 
PRINT 
R(X)=R:DX)=INTD1+D(Q)) 
RETURN 
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Fathom 


= 


eee ME 
а АЕ ЕНИ 
sai 


қауы 


In this game you'll enter a sphere and lower yourself into the ocean 
to try and capture a new type of species of plant life unknown to 
man. You must come within 5 fathoms of the species to make your 
mission successful. 

Good Luck! 


Sample Run 


TA THOM жж 
ARE INSTRUCTIONS REQUIRED? YES 
YOU ARE A BIOLOGICAL EXPERT, YOU HAVE HEARD AND 
STUDIED THAT A CERTAIN PART OF THE OCEAN CONTAINS 
A NEW TYPE SPECIES OF PLANT LIFE THAT UP TO NOW 
HAS BEEN LEFT TO NATURE. TO LOCATE THIS SPECIES 
YOU'LL ENTER А FUEL BURN TO THE SPHERE’S COMMAND 
COMPUTER, BURNS WILL RANGE FROM —3 TO 4. 
THE COMPUTER WILL PRINT UPDATES. 
(NOTE: ENTERING Å NEGATIVE BURN WILL RAISE YOUR 
SPHERE). 
PRESS ENTER/RETURN TO EXIT 
OCEAN BOTTOM IS GREATER THAN 149 FATHOMS. 
TO GET THE SPECIES YOU MUST COME WITHIN 5 FATHOMS 
OF THEIR LOCATION. 
IF YOU'RE READY, ENTER THE SPHERE, AND 
ENTER THE FUEL BURN? 2 
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UPDATE: 

OCEAN BOTTOM IS NOW AT 73.7618 FATHOMS. 

OUTSIDE PRESSURE IS NOW AT 354.5 UNITS. 

TOP OUTSIDE PRESSURE (BEFORE WE EXPLODE)IS 592.5 UNITS. 
SPECIES ARE AROUND 67 FATHOMS FROM YOUR LOCATION. 
IF YOU THINK YOUR NEAR ENOUGH TO THE SPECIES, 

OR YOU WANT TO ABANDON MISSION, 

ENTER 00 FOR A FUEL BURN. 

ENTER THE FUEL BURN? 2 

SPECIES LESS THAN 59 FATHOMS. 

COMFORTABLE INSIDE, OUTSIDE PRESSURE NOW AT 385 U- 
NITS. 

UPDATE: 

OCEAN BOTTOM NOW AT 63.7618 FATHOMS. 

OUTSIDE PRESSURE NOW AT 385 UNITS. 

TOP OUTSIDE PRESSURE (BEFORE WE EXPLODE) IS 592.5 UNITS. 
SPECIES ARE AROUND 57 FATHOMS FROM YOUR LOCATION. 
ENTER THE FUEL BURN? 4 

UPDATE: 

OCEAN BOTTOM IS NOW AT 43.7618 FATHOMS. 

OUTSIDE PRESSURE NOW AT 427.5 UNITS. 

TOP OUTSIDE PRESSURE (BEFORE WE EXPLODE) IS 592.5 UNITS. 
SPECIES ARE AROUND 31 FATHOMS FROM YOUR LOCATION. 
ENTER THE FUEL BURN? 3 

OCEAN BOTTOM LESS THAN 30.7618 FATHOMS. 

WATCH FUEL BURNS. 

COMFORTABLE INSIDE,OUTSIDE PRESSURE NOWAT 452UNITS. 
UPDATE: 

OCEAN BOTTOM NOW AT 28.7618 FATHOMS. 

OUTSIDE PRESSURE ISNOW AT 452 UNITS. 

TOP OUTSIDE PRESSURE (BEFORE WE EXPLODE) IS 592.5 UNITS. 
SPECIES ARE AROUND 19 FATHOMS FROM YOUR LOCATION. 
ENTER THE FUEL BURN? 2 

OCEAN BOTTOM LESS THAN 20.7618 FATHOMS. 

WATCH FUEL BURNS. 

OUTSIDE PRESSURE RISING, NOW AT 476.5 UNITS. 

UPDATE: 

OCEAN BOTTOM NOW AT 18.7618 FATHOMS. 

OUTSIDE PRESSURE NOW AT 476.5 UNITS. 

TOP OUTSIDE PRESSURE (BEFORE WE EXPLODE) IS 592.5 UNITS. 
SPECIES ARE AROUND 12 FATHOMS FROM YOUR LOCATION. 
ENTER THE FUEL BURN? 2 
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OCEAN BOTTOM LESS THAN 10.7618 FATHOMS. 
WATCH FUEL BURNS. 
OUTSIDE PRESSURE RISING, NOW AT 507 UNITS. 
UPDATE: 
OCEAN BOTTOMISNOW AT 8.76179 FATHOMS. 
OUTSIDE PRESSURE IS NOW AT 507 UNITS. 
TOP OUTSIDE PRESSURE (BEFORE WE EXPLODE) IS 592.5 UNITS. 
SPECIES ARE AROUND 2 FATHOMS FROM YOUR LOCATION. 
ENTER THE FUEL BURN? 00 
STOPPED THE SPHERE JUST IN TIME, I THOUGHT WE WERE 
GOING THROUGH THE OCEAN BOTTOM !! 
NOW THAT YOU HAVE YOUR SPECIES, WHAT’S NEXT ??? 
ARE YOU AREADY TO TRY AGAIN? NO 
COULDN'T STAND ALL THE PRESSURE ?? 
END 
See Fig. 5-4 for the flowchart for this program. 

Program Listing 

20 CLS:L=0:M=0:N=0:Q=0:P2=0:PRINT 


” 
ой PRINT:PRINT TAD/20)- ETT: PATHOM жжж 
OU LX MIN LIL INE LOADING VU), £X å LEN iva 


40 PRINT: PRINT 
50 PRINT"ARE INSTRUCTIONS REQUIRED?”; 
60 INPUT A$ 
70 IF AS < >“YES” AND A$ < >“МО” THEN 90 
80 IF A$=“YES” THEN 100 
85 R=1:GOTO 100 
90 PRINT:PRINT“INCORRECT RESPONSE, ANSWER YES OR 
NO”: GOTO 40 
100 CLS:IF R=1 THEN 190 
110 PRINT“YOU ARE A BIOLOGICAL EXPERT, YOU HAVE 
HEARD AND” 
120 PRINT“STUDIED THAT A CERTAIN PART OF THE OCEAN 
CONTAINS” 
130 PRINT“A NEW TYPE SPECIES OF PLANT LIFE THAT UP TO 
NOW” 
140 FRINT HAS DEEN LEFT TO NATURE. TO LOCATE Tins 
SPECIES” 
160 PRINT“YOU’LL ENTER A FUEL BURN TO THE SPHERE'S 
COMMAND” 
170 PRINT"COMPUTER, BURNS WILL RANGE FROM —3 TO 4." 
180 PRINT"THE COMPUTER WILL PRINT UPDATES." 
185 PRINT“(NOTE: ENTERING A NEGATIVE BURN WILL RAISE 
YOUR SPHERE)." 


NO 
INSTRUCTION 
YES 


PRINT 
INSTRUCTIONS 


SET DEPTH 
{BOTTOM 


SET DEPTH 
OF SPECIES 


INPUT SPEED 
OF SPHERE 


SORRY 
MESSAGE 


: РНІМТ 
EH UPDATE 
CLOSING MESSAGE 


YES = 
PLAY AGAIN 
NO 


Fig. 5-4. The flowchart for Fathom. 


190 REM SET DEPTH TO OCEAN BOTTOM 

200 B=INT(100*RND(0)+10):IF B <75 THEN 200 
205 B1=INT(B+100/2.2) 

210 REM SET DEPTH OF SPECIES 

220 S=INT(5*RND(O)+)) 

230 READS 

240 DATA 10,3.3,5.5,8,4.5 

250 S=S+INT(B/1.2):P=INT(S*15)/2 

255 IF К-1 THEN 270 
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260 
270 
280 


300 


305 
310 
320 
330 
335 
340 
350 
360 


365 
370 
380 


390 
395 
400 
405 
410 
420 
430 
500 
510 
530 
540 
550 
560 


570 


280 
590 


595 
600 
610 
620 
630 
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PRINT: INPUT'"PRESS ENTER/RETURN TO EXIT”: X$ 

CLS: PRINT 

PRINT'OCEAN BOTTOM IS GREATER 
THAN ;B1;"FATHOMS." 

PRINT"TO GET THE SPECIES, YOU MUST COME WITHIN 5 
FATHOMS" 

PRINT"OF THEIR LOCATION." 

PRINT 

PRINT"IF YOU'RE READY, ENTER THE SPHERE, AND" 
INPUT"ENTER THE FUEL BURN”;F 

IF F=00 THEN 1120 

IF F < —3 OR F >4 THEN 360 

GOTO 370 

PRINT“YOU WERE INSTRUCTED TO ENTER —3 TO 4, TRY 
AGAIN.”: Q=Q+LIF Q>1 THEN 990 

GOTO 330 

FOR I=1 TO 1000:NEXT 

B=B-(F*5):B2=(B-50)+P2 

Pi=P-2oOTE OTE 2 

IF F <0 THEN P1=P1-P2+10 

S=INT(B-(F*3)) 

IF S <0 THEN 920 

IF S >0 AND S <30 THEN 620 

IF S >31 AND S <60 THEN 660 

IF 5 >61 AND 5 <75 THEN 690 

PRINT 

PRINT"UPDATE:" 

PRINT 

PRINT"OCEAN BOTTOM IS NOW АТ” В;“ЕАТНОМ5.” 
PRINT"OUTSIDE PRESSURE IS NOW AT”: P1; "UNITS.” 
PRINT"TOP OUTSIDE PRESSURE (BEFORE WE EXPLODE) 
IS" P;"UNITS." 

PRINT"SPECIES ARE AROUND”; S; "FATHOMS FROM YOUR 
LOCATION." 

PRINT: M=M+1:IF M >1 THEN 610 

РКІМТ“ТЕ YOU THINK YOUR NEAR ENOUGH TO THE 
SPECIES," 

PRINT"OR YOU WANT TO ABANDON MISSION,” 
PRINT"ENTER 00 FOR A FUEL BURN." 
P2=P2+30.5:GOTO 330 

GOSUB 630: СОТО 640: REM MESSAGES 
PRINT:PRINT:PRINT: RETURN 


640 
644 
645 
650 
660 
670 
680 
690 
700 


710 
730 
740 


750 
770 
780 


790 
810 
820 


830 


835 
840 
850 
860 
870 
880 
885 
890 


900 


905 
906 


910 
920 
930 
940 


PRINT"OCEAN BOTTOM LESS THAN”;B+2;“FATHOMS.” 
PRINT“WATCH FUEL BURNS.” 

GOSUB 650:GOTO 1030 

FOR [=1 ТО 1500: NEXT: RETURN 

GOSUB 630 

PRINT“SPECIES LESS THAN”; S+2;"FATHOMS.” 

GOTO 645 

GOSUB 630 

PRINT"WE'RE AT A DEPTH ОЕ”; ABS((B1-S)- 10) +F; 
"FATHOMS.” 

GOTO 645 

GOSUB 630 

PRINT“COMFORTABLE INSIDE, OUTSIDE PRESSURE NOW 
AT”;PL "UNITS." 

GOSUB 650:GOTO 500 

GOSUB 630 

PRINT“OUTSIDE PRESSURE RISING, NOW AT” PL"U- 
NITS.” 

GOTO 750 

GOSUB 630 

PRINT"WE MUST BE LOWERING THE SPHERE TOO FAST 


PRINT"OUTSIDE PRESSURE NOW AT”;P1;“UNITS.”: 
N=N+1:IF N >2 THEN 840 

GOTO 750 

PRINT"WON'T STAND MUCH MORE.” 

GOTO 750 

CLS 

GOSUB 630 

PRINT“CRRRRACK..... " 

L=L+1:IF L=2 THEN 905 

PRINT“OUTSIDE PRESSURE HAS RISEN TOO HIGH, RAISE 
THE SPHERE,” 

PRINT“ WE’RE GONNA BLOW IN LESS THAN А MIN- 
UTE.”:GOTO 910 

PRINT'BULB...BULB...BLUB !!" 

PRINT"THE SPHERE JUST EXPLODED . . . TURKEY 
1": GOTO 1180 

GOTO 750 

CLS 

GOSUB 630 

PRINT"THAT IS IT !!" 
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950 
960 


970 
980 
990 
1000 


1010 
1020 
1030 
1035 
1040 
1050 
1060 
1070 
1080 
1090 


1100 
1110 
1120 
1130 
1140 


1150 
1160 


1170 
1175 


1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 


140 


PRINT"WE'VE JUST SLAMMED INTO THE OCEAN 
BOTTOM !!” 

PRINT"WITH ONLY”;S5+30; "MINUTES OF OXYGEN LEFT, 
NO WAY” 

PRINT"YOU'LL GET OUT OF THIS ONE..... E 

GOTO 1180 

GOSUB 630 

PRINT"YOU CONTINUE TO INPUT GREATER BURNS THAN 
THIS SPHERE" 

PRINT"CAN HANDLE, WE'RE NOT A BATTLE CRUISER !!!" 
Q=0:GOSUB 650: GOTO 330 

IF P1 >P THEN 870 

IF (P-P1) «25 THEN 1080 

IF P1 300 AND P1 «475 THEN 730 

IF Pi 2475 AND P1 «550 THEN 770 

IF P1 2550 AND P1 < 575 THEN 810 

GOTO 500 

GOSUB 630 

PRINT"PRESSURE ALMOST OR GREATER THAN EXPLOD- 
ING POINT !?" 

PRINT"DECREASE OR HALT FUEL BURNS !!" 

GOTO 750 

GOSUB 630 

IF 5 < 5 THEN 1160 

PRINT"WATCH YOUR BURNS, YOU STILL НАУЕ”;5; 
"FATHOMS TO GO." 

GOTO 750 

PRINT“STOPPED THE SPHERE JUST IN TIME, I THOUGHT 
WE WERE" 

PRINT"GOING THROUGH THE OCEAN BOTTOM !!” 
PRINT"NOW THAT YOU HAVE YOUR SPECIES, WHAT'S 
NEXT ??" 

GOSUB 650 

GOSUB 630 

PEINT"ARE VOU READY TO TRY AGAIN" 

INPUT A$ 

OF A$="YES” THEN RESTORE:GOTO 20 

PRINT 

PRINT"COULDN'T STAND ALL THE PRESSURE ??" 

END 


Duel 


How are your reflexes? Excellent you say? Well this game will 
tell you, when you duel with one of the famous duelists in the world 
... your computer! 

Don’t try to cheat your computer and shoot it in the back, that 
won't work. As the rounds get higher the computer will get faster. 


Sample Run 


Жжжж DUEL Жжжж 
THIS САМЕ WILL TEST YOUR REFLEXES WHEN YOU DUEL 
WITH ONE OF THE MOST FAMOUS DUELISTS IN THE WORLD, 
YOUR COMPUTER !! 
KEEP YOUR FINGER ON THE F' KEY 
WHEN YOU'RE READY TO FIRE, JUST PRESS IT. 
DON’T FIRE BEFORE THE COUNT OF TEN AND YOU 
SEE A STAR (*) ON THE VIDEO - THAT WOULD BE CHEATING. 
A TOTAL OF TEN ROUNDS WILL BE RUN, THE ONE COMING UP 
WITH THE MOST HITS WILL BE THE WINNER. 
(NOTE: AS THE ROUNDS BECOME GREATER THE COMPUTER 
WILL GET FASTER). 
PRESS ENTER/RETURN TO BEGIN? 
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START YOUR PACES.... 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

* 

(press f) 

OUCH!! 


YOU GOT ME, SCRATCH ONE INTEGRATED CIRCUIT !! 
THAT’S ROUND NUMBER 1 
ONLY 9 MORE TO GO. 


PRESS ENTER/RETURN TO BEGIN? 
START YOUR PACES .... 


£& OG м кә 


on CO Ci 


de 


10 
(accidently press f, before star is set) 
OKAY RESTLESS !! 
NEITHER ONE OF US GOT THIS ROUND. AS A MATTER 
OF FACT, YOU LOSE A ROUND—FOR SHOOTING ME 
IN THE BACK !! DID YOU SEE A STAR ?? 
THAT O ROUND NUMBER 2 
ONLY 8 MORE TO GO. 
PRESS ENTER/RETURN TO BEGIN? 


START YOUR PACES.... 


moh = 
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oan Ф tn 


кі 
с> 


*(press f) 

TOO SLOW SUCKER !! 

I JUST SHOT YA !! 

THAT’S ROUND NUMBER 3 

ONLY 7 MORE TO GO. 

PRESS ENTER/RETURN TO BEGIN? 
STOP 


That’s only three rounds of the ten. As the rounds go on, the 


computer will get faster and faster. The computer will get ex- 
tremely fast after firing about 5 rounds. See Fig. 5-5 for the 
flowchart for this program. 


Good luck! 


Program Listing 


REM * IF YOUR REFLEXES ARE SUPER FAST YOU CAN * 
КЕМ *CHANGE 5, LINE 10, TO A SMALLER NUMBER * 
REM * IF YOUR REFLEXES ARE SLOW, YOU * 

REM * CAN INCREASE 5, LINE 10 * 

REM * ALSO,ANY KEY CAN BE USED TO FIRE BY CHANGING" 
REM * LINE NUMBERS 220,275, AND 320 * 

CLS: PRINT: Q=0:T=0: W=0:5=120 

PRINT TAB(10);“*** DU E L ***” 

PRINT:IF P=1 THEN 140 

PRINT“THIS GAME WILL TEST YOUR REFLEXES WHEN YOU 
DUEL” 

PRINT“WITH ONE OF THEMOST FAMOUS DUELISTSIN THE 
WORLD,” 

PRINT“YOUR COMPUTER !!” 

PRINT 

PRINT“KEEP YOUR FINGER ON THE F' KEY” 
PRINT“WHEN YOU’RE READY TO FIRE, JUST PRESS IT.” 
PRINT"DON'T FIRE BEFORE THE COUNT OF TEN AND YOU" 
PRINT“SEE A STAR (*) ON THE VIDEO—THAT WOULD ВЕ 
CHEATING.” 

PRINT“A TOTAL OF TEN ROUNDS WILL BE RUN, THE ONE 
COMING UP” 
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130 PRINT“WITH THE MOST HITS WILL BE THE WINNER.” 

135 PRINT"(NOTE: AS THE ROUNDS BECOME GREATER THE 
COMPUTER WILL GET FASTER).” 

140 PRINT:INPUT"PRESS ENTER/RETURN TO BEGIN";X 

150 CLS:PRINT 

160 PRINT"START YOUR PACES....” 

170 REM COUNT PACES 

180 FOR М=1 TO 10 

100 PRINT TAB(19);M 

200 FOR N=1 TO 500: NEXT N 

210 Z$-INKEYS$: REM NO CHEATERS 

220 IF Z$—"F" THEN GOSUB 580:GOTO 410 

230 NEXTM 

240 REM SET STAR 

250 X-INT(30*RND(0)--1) 

260 CLS:FOR J=1 TO 500: NEXT 

265 Z$=INKEY$:REM CHECK FOR CHEATERS AGAIN 

270 PRINT:PRINT:PRINT: PRINT 

275 IP Z95-2'B"THEN GOSUB SEN COTO 410 

280 PRINT ТАВ(Х);“* 

290 REM SET UP SPEED FOR COMPUTER SHOT 

300 FOR I=1 TO S:NEXT 

310 Y$=INKEY$ 

320 IF Y$ < >“F” THEN 340 

330 GOTO 380 

340 CLS:PRINT 

350 PRINT"TOO SLOW SUCKER !!" 

360 PRINT'T JUST SHOT YA !!” 

365 Q=Q+1 

370 GOTO 410 

380 CLS:PRINT 

390 PRINT“OU C H !!” 

400 PRINT“YOU GOT ME, SCRATCH ONE INTEGRATED CIRCUIT 
1”: W=W+1 

400 Ir W > 4 TREN DUNE ТМ GETTING WEAKEN 1 

410 PRINT:T=T+1:IF T=10 THEN 440 

420 PRINT"THAT'S ROUND NUMBER”; T 

430 IF T< 10 PRINT"ONLY”; 10-T; "MORE TO GO.”:S=S-10:GOTO 
140 

440 PRINT"THAT'S”:T:"ROUNDS !!” 

460 IF Q > W THEN 490 

470 IF W > Q THEN 520 
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OUTPUT 
INSTRUCTIONS 


ma 


START PACES 


| YES CHEAT 
AI MESSAGE 


NO 


SET STAR 


START LOOP 


Q=Q+1 
MESSAGE 


YES 


Fig. 5-5. The flowchart for Duel. 
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480 
485 
490 
500 
510 
520 


530 
540 
990 


560 
570 
580 
590 
600 


610 


620 
630 
640 
650 
660 
670 
680 
690 


700 
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IF Q=W THEN 550 

REM FINAL MESSAGES 

PRINT: PRINT“LOOKS LIKE I WON THE BETTER OF%T 
PRINT“ROUNDS. WITH A TOTAL OF”;Q 

GOTO 640 

PRINT: PRINT“ WELL YOU'RE FASTER THAN YOUR COMPU- 
TER, DILLON !!” 

PRINT“YOU WON THE”;T;“ROUNDS, WITH А TOTAL OF”; W 
GOTO 640 

PRINT:PRINT“SO WE’RE ABOUT EVEN WITH THE RE- 
FLEXES,” 

PRINT“YOU HAD”; W;"AND I HAD”;Q;“NOT BAD !!” 

GOTO 640 

FOR I=1 TO 300: NEXT: CLS: PRINT: PRINT 

PRINT“OKAY RESTLESS !!” 

PRINT“NEITHER ONE OF US GOT THIS ROUND. AS A MAT- 
TER” 

PRINT“OF FACT, YOU LOSE A ROUND—FOR SHOOTING 
МЕ” 

PRINT“IN THE BACK !! DID YOU SEE А STAR ??” 
W=W-1:RETURN 

PRINT: PRINT“WOULD YOU LIKE TO TRY YOUR REFLEXES” 
PRINT"AGAIN, BY GOING”; T; "MORE ROUNDS”; 

INPUT A$ 

IF A$=“YES” THEN P=1:GOTO 10 

PRINT 

PRINT“GETTING TIRED OF SHOOTING AT A STAR. . .HUH 
272” 

END 


smokey 


In this game all you have to do is catch the bandit. Watch the 
computer—it might move the bandit around or give you false 
directions! 


Sample Run 


SMOKEY 
INSTRUCTIONS (YES/NO)? YES 
THIS IS THE GAME OF SMOKEY. 
IN WHICH YOU’LL BE SMOKEY AND I YOUR COMPUTER WILL 
BE YOUR ASSISTANT. YOU’LL BE CHASING THE BANDIT 
AND TRYING TO GUESS HIS HIDEOUTS. BUT BEWARE.... 
YOU MIGHT END UP CATCHING THE WRONG PERSON 
PRESS A KEY IF YOU'RE READY FOR THE CHASE 
Ж 
SPEED 23 RIGHT 
SPEED 66 RIGHT 
SPEED 66 STRAIGHT 
SPEED 124 STRAIGHT 
SPEED 185 LEFT 
* The screen clears after each direction. 
PRETTY FAST CAR HUH ? 
NOW FOR THE EASY PART, TO CATCH UP WITH THE BANDIT 
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YOU MUST INPUT THE DIRECTIONS HE TOOK AND INPUT HIS 
TOTAL SPEED DURING THE CHASE.... 

INPUT THE ROUTE STARTING WITH THE BANDIT'S FIRST MOVE 
(NOTE: ONLY INPUT THE FIRST LETTER). 

MOVE 1? R 

MOVE 2? R 

MOVE 3? 5 

MOVE 4? 5 

MOVE 52 L 

WHAT WAS THE BANDIT’S TOTAL SPEED? 460 

DUMMY, LOOKS AS THOUGH YOU САМТ ADD !! 

OKAY SMOKEY, YOU'VE OUT-FOXED THE BANDIT WITH THE 
CHASE SCENE, NOW YOU HAVE TO LOCATE WHERE HE’S HID- 
ING. 

DEPARTMENT STORE 

HOUSE 

VACANT FACTORY 

DUMP 

ГУЕ NARROWED IT DOWN FOR YOU. ABOVE ARE FOUR POS 
SIBLE 

LOCATIONS THE BANDIT COULD BE HIDDEN. 

HIS LAST DIRECTION WAS LEFT SO FROM YOUR ANGLE 
THAT WOULD EITHER PUT HIM IN THE VACANT FACTORY 
OR MAYBE IN THE DEPARTMENT STORE 

WHICH OF THE FOUR WOULD YOU LIKE TO TRY? VACANT FAC- 
TORY 

І MUST ADMIT, I MISLED YOU, HE WASN’T ANYWHERE NEAR 
THE VACANT FACTORY SO COME ON TRY AGAIN. 

WHICH OF THE FOUR WOULD YOU LIKE TO TRY? HOUSE 
SSSSHH !! BE QUIET YOU'VE GOT TO FIGURE OUT WHICH 
ROOM HE'S HIDING IN. LUCKY YOU. SOMEBODY NUMBERED 
THE DOORS IN THIS HOUSE (FROM 1 TO 5). 

WELL WHICH DOOR ARE YOU GOING TO TRY? 2 

LOOKS LIKE AN EMPTY BATHROOM !! 

WELL WHICH DOOR АКЕ YOU GOING 10 IK? 4 

GOOD CAPTURE !! WOULD YOU LET HIM GO; HE LIVES 

IN THIS HOUSE YOU'VE RAIDED !! 

IT'S THE OWNER, DUMMY !! YOU HAVEN’T GOT THE BANDIT !! 
HE'S CHANGED ROOMS NOW.... 

WELL WHICH ROOM ARE YOU GOING TO TRY? 5 

ISN'T THAT NICE, A KITCHEN WITH A STEEL DOOR !! 

WELL WHICH DOOR ARE YOU GOING TO TRY? 2 
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LOOKS LIKE AN EMPTY BATHROOM !! 
WELL WHICH DOOR ARE YOU GOING TO TRY? 4 
CONGRATULATIONS !! 
VERY WELL DONE SMOKEY, NOT A SCRATCH ON YOU. HE 
DIDN'T LIKE BEING CAPTURED THIS EASY, SO LET'S 
TRY THIS GAME AGAIN, О.К.? NO 
JUST AS WELL, YOU WORE YOUR HAT PRETTY SLOPPY ANYWAY. 
END* 

see Fig. 5-6 for the flowchart for this program. 


START 


INSTRUCTIONS 


READ DIRECTIONS 


PRINT 
RANDOM DIRECTIONS 


INPUT DIRECTIONS 


YES 


PRINT MESSAGE 
READ HIDEOUTS 


ANOTHER MESSAGE 


.| SELECT 
“| MESSAGE 


CAPTURED 
YES 


INPUT HIDEOUTS 


NO YES 


CHANGE 
HIDEOUTS 


Fig. 5-6. The flowchart for Smokey. 
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Program Listing 


10 
15 
20 
30 
40 
50 
60 
70 


80 
90 


100 
105 
110 
115 
120 
130 
135 
140 
150 
155 
160 
165 
170 
180 
185 
190 
200 
210 


220 


230 
240 


245 
250 
260 
270 


150 


CLS:RANDOM:C=5:CA=C 

PRINT TAB(20);“S M O K E Y” 

PRINT:PRINT 

INPUT"INSTRUCTIONS (YES/NO)”; A$ 

IF A$ < >“YES” THEN 105 

PRINT 

PRINT“THIS IS THE GAME OF SMOKEY.” 

PRINT"IN WHICH YOU'LL BE SMOKEY AND I YOUR COM- 
PUTER WILL" 

PRINT"BE YOUR ASSISTANT. YOU'LL BE CHASING THE 
BANDIT" 

PRINT"AND TRYING TO GUESS HIS HIDEOUTS. BUT BE- 
WARE...." 

PRINT"YOU MIGHT CATCH THE WRONG PERSON !" 
PRINT"PRESS A KEY IF YOU'RE READY FOR THE CHASE." 
GOSUB 1000: PRINT:PRINT 

REM GET BANDITS DIRECTIONS 

FOR I=1 TO 3: READ AS(D:NEXT 

DATA LEFT,RIGHT, STRAIGHT 

P=1 

REM DRIVE AT RANDOM 

I=INT(3*RND(O)+1) 

S=P*INT(20*RND(0)+20): REM SPEED OF BANDIT 
PRINT“SPEED”;S, AS(D 

TS=(S+TS):REM TOTAL SPEED 

FOR T=1 TO 800:NEXT 

D$(P)=A$(D 

CLS:PRINT:PRINT 

P=P+1:IF P < > 6 THEN 150 

PRINT:PRINT“PRETTY FAST CAR HUH ?” 

PRINT“NOW FOR THE EASY PART, TO CATCH UP WITH 
THE BANDIT” 

PRINT“YOU MUST INPUT THE DIRECTIONS HE TOOK AND 
INPUT HIS” 

PRINT"TOTAL SPEED DURING THE CHASE... ." 
PRINT“INPUT THE ROUTE, STARTING WITH THE BAN- 
DIT’S FIRST MOVE.” 

PRINT“(NOTE: ONLY INPUT THE FIRST LETTER).” 

FOR I=1 TO 5 

PRINT"MOVE ЖУ; 

INPUT M$(I) 


280 
290 
300 
310 
320 
330 


340 
350 
360 


370 
380 
390 


400 
410 
420 


430 


435 


440 


450 


455 


460 
470 
480 


490 
500 
510 
520 
525 
530 
540 
545 


IF M$(D < > LEFT$(D$(D,1) THEN C=C-1:GOTO 300 
CA=CA 

NEXT 

PRINT: PRINT“ WHAT WAS THE BANDIT'S TOTAL SPEED”; 
INPUT ST 

IF ST < > TS THEN PRINT“DUMMY, LOOKS AS THOUGH 
YOU CAN'T ADD !!” 

IF C < > 5 THEN 360 

GOTO 440:REM CORRECT ROUTE MESSAGE 
PRINT"LOOKS AS THOUGH YOU DIDN'T FOLLOW THE 
BANDIT.” 

PRINT“YOU MISSED”:(CA-C); “ОЕ HIS MOVES." 
PRINT"ARE YOU READY TO RUN THE CHASE AGAIN.” 
PRINT"YOU COULDN'T POSSIBLY GET HIS HIDEOUTS 
(YES/NO)”; 

REM START OVER IF YES 

INPUT A$ 

IF A$="YES"THEN PRINT'PRESS A KEY... ”:GOSUB 
1000: RESTORE: C=5: 

CA=C:PRINT:PRINT:GOTO 115 

PRINT“HOW DO YOU THINK YOU'LL CATCH THE BANDIT 
IF YOU CAN'T” 

PRINT“IF YOU CAN'T EVEN FOLLOW HIM IN A CAR.. 
.’: PRINT: СОТО 460 

PRINT: PRINT"OKAY SMOKEY, YOU'VE OUT-FOXED THE 
BANDIT WITH THE” 

PRINT“CHASE SCENE, NOW YOU HAVE TO LOCATE 
WHERE HE'S HIDING.” 

IF ST < > TS THEN PRINT“WE’LL SKIP YOUR ADDING 
PROBLEM FOR NOW.” 

REM GET BANDITS HIDEOUT 

FOR I=1 TO 4:READ H$(D:NEXT 

DATA DEPARTMENT STORE,VACANT FACTORY,HOUSE 
DUMP 

I-INT(A*RND(0)4-1) 

HI$=H$(0) | 

REM GET FALSE HIDEOUT 

IF I <= 3 THEN F=I+INT(2*RND(O)+1) 

IF F > 4 THEN 520 

FH$-H3(F) 

IF FH$—" " THEN 490 

IF FH$=HI$ THEN 490 
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790 
800 
810 
820 
830 
840 
850 
860 
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FOR I=1 TO 4:PRINT H$(D:NEXT 

РКІМТ:ГУЕ NARROWED IT DOWN FOR YOU. ABOVE ARE 
FOUR POSSIBLE” 

PRINT“LOCATIONS THE BANDIT COULD BE HIDDEN.” 
PRINT“HIS LAST DIRECTION WAS”; D$(5);“SO FROM YOUR 
ANGLE” 

PRINT"THAT WOULD EITHER PUT HIM IN THE ”;FH$ 
PRINT“OR MAYBE THE ” Н%О) 

PRINT 

PRINT“WHICH WOULD YOU LIKE TO TRY”; 

INPUT G$ 

ВМ$=НІ$ 

IF G$=BM$ THEN 730: REM CAPTURE MESSAGE 

ТЕ G$=FH$ THEN 690: REM FALSE HIDEOUT 

GOSUB 1020 

REM TRY AGAIN 

PRINT"SORRY SMOKEY, HE WASN'T THERE. BUT I WILL 
TELL YOU" 

PRINT “HE’S CHANGED HIS LOCATION... " 

PRINT: GOTO 600 

PRINT"I MUST ADMIT, I MISLED YOU, HE WASN'T ANY- 
WHERE NEAR” 

PRINT THE ”;FH$;" SO COME ON TRY AGAIN." 

GOSUB 1020: PRINT:GOTO 600 

REM CAPTURED... MAYBE 

IF BM$="DEPARTMENT STORE” THEN 800:REM MORE 
PROBLEMS 

IF BM$=“HOUSE” THEN 1060:КЕМ WHICH ROOM 

PRINT: PRINT“CONGRATULATIONS !!" 

PRINT“VERY WELL DONE SMOKEY, NOT A SCRATCH ON 
YOU.” 

PRINT“HE DIDN'T LIKE BEING CAPTURED THIS EASY, SO 
LET'S" 

GOTO 1230 

REM DEPARTMENT STORE 

REM GET FLOOR BANDIT IS ON 

FL-INT(5*RND(0)4-1) 

REM GET ROOM NUMBER 

RM=INT(8*RND(0)+1) 

REM NOW TRY IT SMOKEY 

PRINT"YOU HAVE HIM TRAPPED IN THE ” БМ%;“ 
SMOKEY.” 


870 


880 
890 


900 


910 
920 
930 
935 
940 


950 


960 
970 
980 


990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 


1070 


1080 
1090 
1100 
1110 


1120 
1130 
1140 
1150 
1160 
1170 


PRINT“WHICH FLOOR WILL YOU TRY (THERE’S FIVE OF 
THEM)”; 

INPUT WF 

IF WF < > FL THEN PRINT“SORRY SMOKEY, HE’S NOT ON 
THAT ONE”: 

PRINT:GOTO 870 

PRINT“VERY GOOD GUESS, NOW WHICH OF THE EIGHT 
ROOMS IS HE IN”; 

INPUT HI 

IF HI < > RM THEN 935 

GOTO 760 

R-INT(2*RND(0)--1): ON R GOTO 940,980 
PRINT"CONGRATULATIONS NITWIT ! YOU'VE JUST 
BROKE IN ON THE” 

PRINT“STORE MANAGERS MEETING—THERE’S NO BAN- 
DIT HERE !!" 

PRINT"HE'S MOVED TO A DIFFERENT FLOOR NOW t!" 
PRINT:GOTO 800 

PRINT“OOPS !! THAT WAS THE WOMENS RESTROOM. 
HURRY, HE'S MOVING..." 

PRINT:GOTO 900 

X$=INKEYS:IF X$=" " THEN 1000 

CLS: RETURN 

REM GET BANDITS MOVE 

I=INT(4*RND(0) +1) 

BM$=H$() 

RETURN 

PRINT: PRINT“SSSSHH !! BE QUIET, YOU'VE GOT ТО 
FIGURE OUT WHICH” 

PRINT"ROOM HE'S HIDING IN. LUCKY YOU. SOMEBODY 
NUMBERED THE” 

PRINT"DOORS IN THIS HOUSE (FROM 1 TO 5).” 

REM GET ROOM 

GR=INT(S*RND(0) +1) 

PRINT: PRINT“WELL WHICH DOOR ARE YOU GOING TO 
TRY’; 

INPUT WD 

IF WD < > GR THEN 1150 

GOTO 760 

ON WD GOTO 1160, 1180, 1200, 1221 

PRINT“LOOKS LIKE AN EMPTY BATHROOM !!” 
PRINT:GOTO 1220 
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1180 
1190 
1200 


1210 
1215 


1220 
1221 


1225 
1230 
1240 
1250 
1260 


1270 
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PRINT“THERE’S AN EMPTY BEDROOM (NICE COLOR)” 
PRINT:GOTO 1220 

PRINT“GOOD CAPTURE ! WOULD YOU LET HIM GO; HE 
LIVES” 

PRINT“IN THIS HOUSE YOU'VE RAIDED !!” 

PRINT'TT'S THE OWNER, DUMMY !! YOU HAVEN'T GOT 
THE BANDIT !!” 

PRINT“HE’S CHANGED ROOMS NOW .... ”:GOTO 1100 
PRINT“ISN’T THAT NICE, A KITCHEN WITH A STEEL 
DOOR.” 

PRINT:GOTO 1110 

РКІМТ“ТКҮ THIS GAME AGAIN”; 

INPUT GM$ 

IF LEFT$(GM$, 1)="Y" THEN RESORE:GOTO 10 

PRINT: PRINT’JUST AS WELL YOU WORE YOUR HAT 
PRETTY SLOPPY ANYWAY.” 

END 


You'll be given an establishment where you'll try to pull off your 
heist. You'll have to pass a few obstacles before you can claim the 
loot. Unlock the front door - by inputting the right number; get past 
the “electronic eyes”; and input the combination to the safe. If you 
can do all that without tripping the alarm the bread is your s(compu- 
ter bread, that is). 


Sample Run 


DO YOU NEED INSTRUCTIONS? YES 
THIS IS THE GAME OF HEIST ..... 

YOU WILL BE GIVEN AN ESTABLISHMENT WHERE YOU 

WILL TRY TO PULL OFF YOUR HEIST. IN THIS ESTABLISHMENT 
WILL BE SOME 'ELECTRONIC EYES' WHICH, WHEN TRIPPED, 
WILL TRIGGER AN ALARM. THESE ‘EYES’ RANGE FROM 5 INCHES 
TO 1 FOOT ABOVE THE FLOOR. TO 

GET INSIDE THIS ESTABLISHMENT, YOU'LL HAVE TO UNLOCK 
THE FRONT DOOR. 

THIS PART IS SIMPLE, ALL YOU HAVE TO DO IS SELECT 

A NUMBER BETWEN 1 AND 5, GUESS IT AND YOU'RE IN: 

MISS IT, AND IT'S ALARM TIME. 

FURTHER INSTRUCTIONS WILL BE LISTED AS YOU PROGRESS. 
PRESS ANY KEY TO BEGIN ..... 

VISUALIZE YOURSELF STANDING IN FRONT OF A DEPARTMENT 
STORE 

TO YOUR RIGHT THERE IS A PUSHBUTTON PANEL WITH 

FIVE NUMBERS RANGING FROM 1 TO 5. 
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YOU MUST PRESS THE CORRECT NUMBER, YOU'LL HAVE 
THREE ATTEMPTS BEFORE THE ALARM SOUNDS. 

INPUT YOUR NUMBER 3 

WELL GOODIE-GUMDROPS YOU'VE GOTTEN THE DOOR OPEN. 
NOW, TIME TO DO SOMEMORE ‘LABOR’. LOOKING STRAIGHT 
DOWN THE HALL (ABOUT 20 FEET) YOU'LL SEE THE VAULT. 
LYING FLAT ON YOUR BELLY, HOW HIGH 

DO YOU THINK THE HIGHEST PART OF YOUR BODY WILL BE. 
LET’S HAVE IT? 2 

COME ON TURKEY !! WHAT ARE YOU, A LIZARD? 

LET'S HAVE IT? 7 

HONK !!! 

HONK !!! 

HONK !!! 

HONK !!! 

HONK !!! 

YOU BLEW IT MUGSY !!! 


WOULD YOU LIKE TO TRY THIS GAME AGAIN? NO 
MAYRE SOME OTHER TIME—MUGSY. 


AAA А. ОА ДАЛ д 


END* 


* If 4 chances at the combination (line 1065) aren’t enough 
you could change lines 1065 and 1090 to any amount you wish. 4 
was just arandom number selected by a computer (of course). See 
Fig. 5-7 for the flowchart for this program. 


Program Listing 


10 DIM D$(20), M(40) 
20 CLS 
30 INPUT“DO YOU NEED INSTRUCTIONS”; Аф 
40 IF A$=“YES” THEN 60 
50 GOTO 180 
60 PRINT"THIS IS THE GAME OF HEIST ..... u 
70 PRINT: ‘YOU WILL BE GIVEN AN ESTABLISHMENT 
WHERE YOU” 
80 PRINT“WILL TRY TO PULL OFF YOUR HEIST. IN THIS Е5- 
TABLISHMENT" 
90 PRINT"WILL BE SOME ELECTRONIC ‘EYES’ WHICH, WHEN 
TRIPPED WILL" 
100 PRINT"TRIGGER AN ALARM. THESE 'EYES' TO RANGE 
FROM" 
105 PRINT"5 INCHES TO 1 FOOT FROM THE FLOOR." 
110 PRINT"GET INSIDE THIS" 
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TPUT 
INSTRUCTIONS 


SET COMBINATION, - 
DIRECTION, NUMBERS 


INPUT H 
г YES 


à. 
жән 


GET ESTABLISHMENT 


SET ELECTRONIC 


EYES INPUT COMBINATION 
xr YES 
МОД ves 
INPUT GUESS 
TO FRONT LOCK 


VAULT 
cs < 


NO 
OUTPUT 
ALARM 


YES 


Fig. 5-7. The flowchart for Heist. 
PRINT"ESTABLISHMENT YOU'LL HAVE TO UNLOCK” 


120 
130 
140 


150 


160 
170 


180 
190 
200 


PRINT“THE FRONT DOOR.” 


WOOP-TEE-DOO 
MESSAGE 


PRINT"THIS PART IS SIMPLE, ALL YOU HAVE TO DO IS 


SELECT” 


PRINT'A NUMBER BETWEEN 1 AND 5, GUESS IT AND 


YOU'RE IN,” 
PRINT“MISS IT AND IT'S ALARM TIME." 


PRINT"FURTHER INSTRUCTIONS WILL BE LISTED AS YOU 


PROGRESS." 

PRINT“PRESS ANY KEY TO BEGIN..... 
AS-INKEYS:IF A$=" “ THEN 190 

REM GET LEFT-RIGHT FOR TUMBLERS 
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210 
220 
230 
240 
250 
260 
270 
280 


290 
300 
310 
320 
330 
340 
350 
355 
360 
365 
370 
380 
390 
395 
400 
405 
405 
410 
420 
430 
440 
450 
460 
470 
480 
190 


500 


510 
520 


530 
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L$=“LEFT” 

R$=“RIGHT” 

REM NOW THE COMBINATION 

FOR [=1 TO 4: READ N (D:NEXT 

DATA 21,30,12,65 

REM NOW THE ESTABLISHMENT 

FOR I=1 TO 4:READ E$():NEXT 

DATA BANK, FINANCE COMPANY, JEWELRY STORE, DE- 
PARTMENT STORE 

REM SET ELECTRONIC ‘EYES’ 

E=INT(12*RND(0)+1):IF E «5 THEN 300 

REM SET NUMBER FOR FRONT LOCK 
NI-INT(5*RND(0)- 1) 

REM SET FOUR POSITIONS LEFT-RIGHT 

Х--4 

I=INT(2*RND(0)+)) 

ON I GOTO 360,370 

L$(X)=L$ 

GOTO 380 

R$(X)=R$ 

X=X-1L:IF X < > 0 GOTO 350 

FOR I=1 TO 4:A$()=L$()+R$(): NEXT 

C=0:C1=4:T=1 

REM RESET NUMBERS FOR TUMBLERS 

B=INT (5*RND(0)4-1) 

B=INT (5*RND(0)--1) 

N(1)=N(1)+B 

N(2)=N(2)+B 

N(3)=N(3)+B 

N(4)=N(4)+B 

REM GET RANDOM ESTABLISHMENT 
ES$=ES(INT(4*RND(0)+1:IF ES$=" "THEN 460 

REM THE GAME NOW? 

CLS: PRINT 

PRINT“VISTIATIZE VOTIRSELE STANDING IN FRONT OF A 
"ES$ 

PRINT“TO YOUR ”;R$;“THEIR IS A PUSHBUTTON PANEL 
WITH” 

PRINT“FIVE NUMBERS RANGING FROM 1 TO 5.” 
PRINT“YOU MUST PRESS THE CORRECT NUMBER, YOU'LL 
HAVE” 

РКІМТ“ТНКЕЕ ATTEMPTS BEFORE THE ALARM 
SOUNDS.” 


550 
560 
570 
575 
580 


600 
610 


620 


630 


650 
660 


690 
700 
710 


720 
730 
740 
750 


760 


770 


780 
790 


800 


810 


811 


815 
818 
819 
840 


PRINT“INPUT YOUR NUMBER” 

N$=INKEY$:IF N$=" " THEN 560 

IF VAL(N$) =NI THEN 590 

C=C+1:IF C=3 GOSUB 1530:GOTO 1120 

PRINT"WRONG NUMBER—THAT WAS TRY NUM- 
БЕК” C:GOTO 550 

CLS:PRINT 

PRINT"WELL GOODIE-GUMDROPS YOU'VE GOTTEN THE 
DOOR OPEN.” 

PRINT“NOW, TIME TO DO SOME MORE ‘LABOR’. LOOKING 
STRAIGHT” 

PRINT“DOWN THE HALL (ABOUT 20 FEET) YOU'LL SEE 
THE VAULT.” 

PRINT“LYING FLAT ON YOUR BELLY, HOW HIGH” 
PRINT“DO YOU THINK THE HIGHEST PART OF YOUR BODY 
WILL BE.” 

PRINT“LET’S HAVE IT?” 

N$-INKEYS$:IF N$=" “ THEN 590 C=0 700 

IF VAL (N$) < 5 PRINT “COME ON TURKEY!! WHAT ARE 
YOU A LIZARD?”:GOTO 690 

IF VAL(N$)<E GOTO 740 

IF VAL(N$)> E GOSUB 1530:GOTO 1120 

CLS: PRINT 

PRINT"THIS MUST ВЕ TOO EASY, EITHER THAT OR YOU 
SEEN THE ‘EYES’.” 

PRINT"OKAY RABBIT, OR IS IT MUGSY ? YOU'VE MADE IT 
ALL” 

PRINT"THE WAY TO THE VAULT. THERE'S 50 GRAND IN- 
SIDE THAT" 

PRINT“VAULT, ALL YOU HAVE TO DO NOWIS CRACK THE" 
PRINT"COMBINATION. KEEP IN MIND THIS IS A COMPU- 
TER VAULT," 

PRINT"MEANING THE TUMBLERS COULD BE SET IN ANY 
DIRECTION." 

PRINT"LIKE LEFT-RIGHT OR RIGHT-LEFT OR MAYBE 
LEFT-LEFT" 

PRINT "OR EVEN RIGHT-RIGHT." 


PRINT"PRESS ANY KEY..... ы 

N$=INKEY:IF N$=" "THEN 818 

CLS:PRINT 

PRINT FIRST YOU'LL INPUT THE DIRECTIONS. THE COM- 
PUTER WILL” 
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850 
860 
880 


890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1050 


1060 
1065 
1070 
1075 


1080 


1090 
1100 


1110 
1115 
1120 
1130 
1140 


1150 


1100 


1170 
1180 
1190 


1200 
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PRINT“REMEMBER, THERE ARE 4 DIRECTIONS TO THIS 
PRINT“WHICH ONES.” 

PRINT““REMEMBER, THERE ARE 4 DIRECTIONS TO THIS 
VAULT.” 

PRINT“PRESS ANY KEY TO START..... T 
N$=INKEYS:IF N$=" “ THEN 900 

CLS 

PRINT 

PRINT"ALRIGHT 'CRACKER' INPUT YOUR DIRECTIONS." 
FOR I=1 TO 4 

INPUT D$() 

IF D&(D-LEFT$(AS(), DTHEN C=C+1:GOTO 980 

C1=C1-1 

NEXT 

IF C=4 THEN 1160 

PRINT"WELL YOU MISSED”;4-C1;“OF THEM SOME- 
WHERE.” 

T=T+1 

Ir 1=5 THEN 1100ЛЕ T> 3 THEN 1080 

PRINT"HERE COMES TRY fr; T; "ARE YOU READY?” 
C=0:C1=4:GOTO 890 

PRINT“THIS IS YOUR FINAL TRY - YOU MUST GET IT THIS 
TIME !!” 

C=0:C1=4:IF T < > 5 THEN 890 

PRINT:PRINT"THAT'S IT !! YOU DIDN'T MAKE IT. THERE'S 
NO POINT” 

PRINT“IN TACKLING THE NUMBERS. LOOKS LIKE CRIME 
DOESN'T PAY !!” 

PRINTF BUT y 2; Su 02 d 

PRINT"WOULD YOU LIKE TO TRY THIS GAME AGAIN"; 
INPUT N$ 

IF N$ « > "YES" THEN PRINT'MAYBE SOME OTHER 
TIME—MUGSY.”: END 

RESTORE:GOTO 20 


ws мл» p, 


FRiNT 

PRINT "EXCELLENT MUGSY... YOU'VE GOT THE DIREC- 
TIONS RIGHT!!!” 

PRINT“NOW YOU MUST TACKLE THE NUMBERS (ISN'T 
THIS A STRANGE SAFE?).” 

PRINT"YOU HAVE А TOTAL OF 4 NUMBERS AND THIS 
TIME YOU'LL 

РКІМТ“НАУЕ 10 TRIES TO GET THE NUMBERS ..... á 


1210 


1220 
1230 
1240 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1400 
1410 
1415 
1420 
1430 
1440 
1450 


1460 
1470 


1480 
1490 
1500 
1510 


1520 
1530 
1540 
1550 
1560 
1570 
1580 


PRINT"YOU'LL INPUT 4 NUMBERS, THEN THE COMPU- 
TER” 

PRINT“WILL TELL YOU HOW MANY YOU MISSED (IF ANY).” 
PRINT"WHEN READY, PRESS А KEY..... å 
N$=INKEY$:IF N$=" " THEN 1240 

CLS: PRINT: C=0:C1=4:T=1 

PRINT“INPUT THE NUMBERS ..... n 

FOR I=1 TO 4 

INPUT МО) 

IF M(DzN(D THEN C=C+1:GOTO 1330 

CI-CI-I 

NEXT:IF C=4 THEN 1490 

T=T+1 

IF T=10 THEN 1450 

IF T=11 THEN 1470 

PRINT"YOU MISSED”;4-C1; "ON THIS ROUND... MUGSY." 
PRINT"HERE COMES TRY #”;T 

C=0:C1=4:GOTO 1280 

PRINT“THIS IS YOUR FINAL TRY TO REACH THE BREAD, 
MUGSY." 

C=0:C1=4:GOTO 1280 


PRINT“SORRY MUGSY.... NO MONEY THIS TIME. TRY 
USING A FILE ON YOUR FINGERS.” 
GOTO 1120 


PRINT"YOU'VE GOT THE BREAD !!” 

PRINT“NOW WHAT, SOUTH AMERICA, THE FAR EAST OR 
GOTO 1120 

CLS:PRINT 

FOR I=1 TO 4 

PRINT“HONK 11" 

NEXT 

PRINT"YOU BLEW IT MUGSY !!” 

RETURN 
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Working for the city zoo, you’re ona trip to Africa to capture a big 
game animal, using tranquilizer darts. Watch out if your dart supply 
runs out before the animal is down! 


Sample Run 


4 : 


BIG GAME ANIMAL HUNT 


IN THIS GAME YOU'LL BE WORKING 

FOR YOUR CITY ZOO AND YOU HAVE ORDERS TO BRING BACK 
A LIVE ANIMAL. YOU'LL HAVE AT LEAST 20 TRANQUILIZER 
DARTS TO BRING THE ANIMAL DOWN. IF YOU RUN OUT OF 
DARTS... WATCH ОПТ!!! 

THE COMPUTER WILL SET THE HAIRS ON YOUR SCOPE 
THEN YOU MUST MATCH THESE NUMBERS (X AND Y). THEN 
ADD THEM TOGETHER. AFTER YOU INPUT THE FINAL RESULT 
YOUR GUN WILL FIRE..... GOOD LUCK !! 

(X AND Y WILL BE ANYWHERE BETWEEN 1 AND 10). 

PRESS ANY KEY TO BEGIN HUNT..... 

DISTANCE TO ANIMAL IS 9 YARDS. 

I DON’T NEED TO TELL YOU, THAT’S PRETTY CLOSE. 

THE ANIMAL CHOSEN FOR YOU TO CAPTURE IS THE 
RHINOCEROS 

ARE YOU SATISFIED WITH THIS CHOICE? YES 
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YOU HAVE 22 TRANQUILIZER DARTS TO CAPTURE YOUR 
GAME ANIMAL. 

SO WITHOUT FURTHER WASTE OF TIME INPUT X AND Y 
THEN ADD THEM TOGETHER AND INPUT THE CENTER. 
ENTER X? 1 

YOUR X SETTING IS OFF. 

ENTER X? 3* 

NOW ENTER Y? 5 

YOUR Y SETTING IS OFF. 

NOW ENTER Y? 6 

YOUR Y SETTING IS OFF. 

NOW ENTER Y? 4* 

ENTER THE TOTAL X+Y? 6 

YOU MISSED DUMMY - CAN'T EVEN ADD ! 

ENTER THE TOTAL X+Y? 7 

THE RHINOCEROS YOUR TRYING TO GET IS VERY ANGRY. 
IT'S STAGGERING BUT ISN'T DOWN YET... 

ENTER X? 3 

YOUR X SETTING IS OFF. 

ENTER X? 4 * 

NOW ENTER Y? 2 

YOUR Y SETTING IS OFF. 

NOW ENTER Y? 3 * 

ENTER THE TOTAL X+Y? 7 


* Denotes that each time you correctly enter x and y the screen 
clears. 


GOOD SHOT, BUT THE RHINOCEROS ISN'T DOWN YET. 
YOU DIDN'T HIT A VITAL AREA ..... 

YOU STILL HAVE 20 SHOTS LEFT. 

ENTER X? 5 

YOUR X SETTING IS OFF. 

ENTER X? 9* 

NOW ENTER Y? 10* 

ENTER THE TOTAL X+Y? 19 

VERY GOOD THE RHINOCEROS IS DOWN AND OUT. YOU CAN 
MOVE IN NOW AND LOAD IT UP, YOU STILL HAD 19 
SHOTS LEFT ..... 

DO YOU WANT TO RUN ANOTHER ROUND OF 

BIG GAME ANIMAL HUNT? NO 

CHICKEN !! 

END 
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Most messages in this game are randomly selected. Depend- 
ing on which messages are selected, the game could last for quite 
awhile. That is providing you don’t run out of tranquilizer darts. 
See Fig. 5-8 or the flowchart for this program. 


Program Listing 


10 CLS:RANDOM 
20 PRINT:PRINT TAB(20);“BIG GAME ANIMAL HUNT” 
30 PRINT"IN THIS GAME YOU'LL BE WORKING" . 
40 PRINT"FOR YOUR CITY ZOO AND YOU HAVE ORDERS TO 
BRING BACK" 
50 PRINT"ALIVE ANIMAL. YOU'LL HAVE AT LEAST 20 TRAN- 
QUILIZER" 
60 PRINT"DARTS TO BRING THE ANIMAL DOWN. IF YOU RUN 
OUT OF" 
70 PRINT"DARTS... WATCH OUT !!! 
80 PRINT:PRINT"THE COMPUTER WILL SET THE HAIRS ON 
YOUR SCOPE" 
90 PRINT"THEN YOU MUST MATCH THESE NUMBERS (X AND 
Y). THEN" 
100 PRINT"ADD THEM TOGETHER. AFTER YOU INPUT THE 
FINAL RESULT" 
110 PRINT"YOUR GUN WILL FIRE. .... GOOD LUCK !! 
120 PRINT'(X AND Y WILL BE ANYWHERE BETWEEN 1 AND 
10)." 
130 PRINT"PRESS ANY KEY TO BEGIN THE HUNT..... р 
140 N$=INKEY$:IF N$=" " THEN 140 
150 CLS 
200 M=0:R=0:REM MOVES 
210 REM GET ANIMALS 
220 FOR I=1 TO 5:READ A$(D:NEXT 
230 DATA ELEPHANT, TIGER, GORILLA, CHEETAH, 
RHINOCEROS 
235 IF R=1 GOTO 350 
240 REM SET AMOUNT OF TRANQUILIZER DARTS 
250 D=INT(20 *RND(0)+10):IF D < 20 THEN 250 
260 REM SET SCOPE / DISTANCE TO ANIMAL 
270 X=INT(0*RND (0)+1) 
280 Y=INT(10*RND(0)+1):YY=Y+5 
300 FORI=1T03 
310 X(D=Y 
320 YD=X 
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INSTRUCTIONS 


SET MOVES 
SET ANIMALS 


SET AMOUNT OF 
TRANQUILIZER DARTS 


SET DISTANCES 


PRINT AMOUNT 
OF DARTS 


INPUT X1 


NO 
«>: MESSAGE 


INPUT Y1 


SELECT RANDOM 
MESSAGE 


PRINT MESSAGE 


МО| ANOTHER 


MESSAGE 


MESSAGE 


CAPTURE MESSAGE 


Fig. 5-8. The flowchart for Big Game Animal Hunt. 


330 XX=X(D+YD 

340 NEXT:IF XX <5 OR XX> 20 THEN 260 

345 IF R=1 GOTO 570 

350 REM GET RANDOM ANIMAL 

360 AN$=A$(INT(5*RND(0)+1)):IF LEN(AN$)=L THEN RE- 
STORE:GOTO 210 

370 PRINT:PRINT"DISTANCE TO ANIMAL IS”; YY;“YARDS.”:IF 
YY> 9 THEN 390 
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PRINT“T DON'T NEED TO TELL YOU, THAT'S PRETTY 
CLOSE.” 

PRINT“THE ANIMAL CHOSEN FOR YOU TO CAPTURE IS 
THE ”;AN$ 

PRINT“ARE YOU SATISFIED WITH THIS CHOICE”; 

INPUT C$ 

IF LEFTS(C$, 1)="N" THEN RESTORE:R=1:L=LEN(ANS) 
:GOTO 210 

PRINT"YOU HAVE”;D;"TRANQUILIZER DARTS TO CAP- 
TURE YOUR” 

PRINT"GAME ANIMAL.” 

PRINT“SO WITHOUT FURTHER WASTE OF TIME INPUT X 
AND Y” 

PRINT"THEN ADD THE TWO TOGETHER AND INPUT THE 
CENTER.” 

INPUT“ENTER X”;X1 

IF X1 < > X THEN PRINT“YOUR X SETTING IS OFF.”: GOTO 
570 

GOSUB 1000 

INPUT“NOW ENTER Ү”;Ү1 

IF Y1 < > Y THEN PRINT"YOUR Y SETTING IS OFF.”:GOTO 
590 

GOSUB 1000 

PRINT 

PRINT"ENTER THE TOTAL X4-Y"; 

INPUT X2 

D=D-1:IF D « 1 GOTO 930 

IF X2 « > XX THEN PRINT"YOU MISSED DUMMY—CAN'T 
EVEN ADD !” 

:GOTO 620 

IF XX > 10 THEN XY=INT(*RND(0)+1):GOTO 680 

IF X2=XX THEN 690 

IF M > 3 THEN 890 

ТЕХ < > XY OR Y < > XY THEN 820 

I=IN TS KIND(U)-- 1) 

ON I GOTO 710,760,780 

PRINT:PRINT"GOOD SHOT, BUT THE ”; AN$; "ISN'T DOWN 
YET.” 

PRINT"YOU DIDN'T HIT А VITAL AREA ..... ii 
PRINT“YOU STILL HAVE”; D;"SHOTS LEFT." 

IF D=5 GOTO 860 

GOTO 260 


760 


770 


780 


790 
800 
810 
820 


830 


840 
850 
860 


870 
880 
890 


900 


920 
930 
935 
940 
965 


970 
975 
980 
982 
985 


990 
991 
995 
1000 
1010 
1020 


PRINT: PRINT'THE ”; AN$;" YOUR TRYING TO GET IS VERY 
ANGRY.” 

PRINT'IT'S STAGGERING BUT ISN'T DOWN YET. . .”:GOTO 
740 

PRINT:PRINT"VERY GOOD THE ”;AN$;” IS DOWN AND 
OUT. YOU CAN” 

PRINT"MOVEIN NOW AND LOADIT UP, YOU STILL HAD”;D 


PRINT'SHOTS LEFT .... .”.Q=1 
GOTO 965 
PRINT: PRINT“OOPS—THE DURN ”;AN$;” MOVED, YOUR 


SHOT COMPLETELY” 

PRINT"MISSED IT—SORRY SHERLOCK... . YOU'LL HAVE 
TO TRY” 

PRINT“IT AGAIN, MAYBE IT WON’T MOVE THIS TIME.” 
M=M+1:GOTO 740 

PRINT:PRINT"YOU'D BETTER DO SOMETHING FAST— 
THE ANIMAL IS” 

PRINT“CHARGING AND YOU ARE DOWN TO5SHOTS..... Ú 
R=1:GOTO 260 

PRINT: PRINT“I REALLY DON'T KNOW WHAT WE'RE GOING 
TO DO ABOUT” 

PRINT“THAT”; AN$;""THIS IS ТНЕ” М;“ТНІЅ TIME IT'S 
MOVED...” 

GOTO 880 

PRINT: PRINT“YOU’RE OUT OF TRANQUILIZER DARTS !!!!" 
PRINT THE ”;AN$;” IS CHARGING YOUR TRUCK !!” 
GOSUB 1000:GOTO 985 

PRINT:PRINT“DO YOU WANT TO RUN ANOTHER ROUND 
OF” 

PRINT"BIG GAME ANIMAL HUNT”; 

INPUT N$ 

IF N$="YES" THEN RESTORE:R=0:GOTO 200 

IF Q=1 THEN 991 

PRINT:PRINT"THAT ”;AN$; “IS GOING TO HAVE A GOOD 
SUPPER” 

PRINT"TONIGHT ..... YOU !!!!”:GOTO 995 
PRINT“CHICKEN !!” 

END 

PRINT:PRINT"PRESS ANY КЕҮ..... å 

N$=INKEYS:IF N$=" " THEN 1010 

CLS:R=1: RETURN 
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Chapter 6 


Exterminator 


Put some combat boots on—here’s a game that'll need them. 
You're the local exterminator, but you won't be using any sprays; 
all you'll be using is your foot—to stomp out the crawlers. Of 
course, before you can stomp them you must get close enough to 
their location to make the stomps effective. 10 good stomps and 
you'll get to take a break. 


Sample Run 


EXTERMINATOR 

YOU ARE AN EXTERMINATOR, NOT THE KIND THAT 
EXTERMINATES PEOPLE EITHER. YOU ARE OUR LOCAL BUG 
MAN, 

YOU'LL BE ABLE TO KEEP ALL YOU CUSTOMERS SMILING. 
YOU WON'T BE USING АМҮ FLUOROCARBONS, NO SMELLY 
SPRAYS, NO NOSTRIL BURNING CHEMICALS.... 

YOU'LL BE USING ONLY A BROOM, A DUST PAN, 

AND YOUR FAST LITTLE FOOT !! 

YOU MUST STOMP 10 CONSECUTIVE CREEPY CRAWLERS 

IN A ROW. THE AMOUNT OF CRITTERS, NAME AND LOCATION 
WILL BE CHOSEN AT RANDOM. TO BEGIN YOUR REIGN 
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AS AN EXTERMINATOR.... 

JUST PRESS ENTER/RETURN? 

THIS IS A NORMAL SIZE 3 BEDROOM HOME. 

MR. EXTERMINATOR, THE AMOUNT OF CRAWLERS HAS 
BEEN SELECTED, YOU'LL HAVE TO DEAL WITH OUR LITTLE 
FRIEND THE СКІСКЕТ..... 

OKAY, YOUR CRITTER (OR CRITTERS) ARE ABOUT 50, SO 
INCHES FROM THE BEDROOM. IF YOU'RE READY LET'S STOMP !! 
YOU ARE LOCATED IN THE LIVINGROOM. 

HOW MANY STEPS (FROM YOUR LOCATION) DO YOU 

WANT TO TAKE, BEFORE YOU START STOMPING? 9 

YOU'RE NOT GONNA REACH THEM BEFORE YOU STOMP. 
HOW MANY STEPS (FROM YOUR LOCATION) DO YOU 

WANT TO TAKE, BEFORE YOU START STOMPING? 19 

COME NOW... YOU'VE PASSED THE CRITTERS UP, SURELY 
WE CAN DO BETTER s. STEP...STEP... STOMP. 

HOW MANY STEPS (FROM YOUR LOCATION) DO YOU 

WANT TO TAKE BEFORE YOU START STOMPING? 16 

VERY GOOD, NOW YOU'RE WITHIN STOMPING RANGE, YOU'LL 
HAVE TO THINK FAST AND MOVE SWIFT, LET ME KNOW 
NOW, HOW MANY STOMPS YOU WILL MAKE? 6 

VERY GOOD STOMPING, YOU’VE STOMPED THE LOT OF 
THEM. EXTERM’, YOU'RE CLOSER TO YOUR SODA-POP BREAK. 
ТЕТІ TOTAL CRAWLERS STOMPED 4 

MR. EXTERMINATOR, THE AMOUNT OF CRAWLERS HAS 
BEEN SELECTED, YOU'LL HAVE TO DEAL WITH OUR LITTLE 
FRIEND THE TERMITES..... 

OKAY, YOUR CRITTER (OR CRITTERS) ARE ABOUT SO, SO 
INCHES FROM THE LIVINGROOM. IF YOU’RE READY LET’S 
STOMP !! 

YOU ARE LOCATED IN THE HALL. 

HOW MANY STEPS (FROM YOUR LOCATION) DO YOU 

WANT TO TAKE, BEFORE YOU START STOMPING? 10 

VERY GOOD, NOW YOU'RE WITHING STOMPING RANGE, YOU'LL 


HAVE ту "ГҰТҰҠТТ/ PAST AND MOVE схалтУт H ET ME KNOW 
LAN VL 1 ХУ KAARE NAN А Våt WYP AL Жу 


NOW, HOW MANY STOMPS YOU WILL MAKE? 9 
YOU'VE STOMPED A TOTAL OF 15 CRAWLERS !! 
TIME FOR A SODA-POP BREAK EXTERM’ MAN. 
THEN МЕТІ, GO STOMP AGAIN. 

YOU WILL STOMP AGAIN, WON’T YOU? NO 
THEY'RE GONNA GET YOU IN BED TONIGHT !!! 
END 
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INSTRUCTIONS 


SET COUNTERS 


SET NUMBER OF 
CRAWLERS 
SET CRAWLERS 
LOCATION 


SET YOUR 
LOCATION 


GET TYPE OF 
CRAWLER 


MORE INSTRUCTIONS 


О 


NO 
YES NO 
MESSAGE PLAY AGAI 
YES 


Fig. 6-1. The flowchart for Exterminator. 


If the user wanted to make the game even longer you could 


exend the amount of crawlers needed to be stomped from 10 to 
somewhere around 50. That is, if someone’s nerves could take it 
that long! See Fig. 6-1 for the flowchart for this program. 


Program Listing 


10 
20 
30 
40 


CLS:PRINT 

PRINT TAB(10);“EXTERMINATOR” 

PRINT 

PRINT“YOU ARE AN EXTERMINATOR, NOT THE KIND 
THAT” 
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50 
60 
70 


80 
90 
100 
150 


160 
170 


180 
210 
220 
230 
240 
250 


260 
270 
271 
275 
277 
280 


290 
300 
310 
320 
330 
340 
350 
355 
356 
360 
361 
362 
363 
364 
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PRINT“EXTERMINATES PEOPLE EITHER. YOU АКЕ OUR 
LOCAL BUG MAN,” 

PRINT"YOU'LL BE ABLE TO KEEP ALL YOUR CUSTOMERS 
SMILING.” 

PRINT“YOU WON'T BE USING ANY FLUOROCARBONS, NO 
SMELLY” 

PRINT"SPRAYS, NO NOSTRIL BURNING CHEMICALS... .” 
PRINT"YOU'LL BE USING ONLY A BROOM, A DUST PAN." 
PRINT"AND YOUR FAST LITTLE FOOT !!” 

PRINT“YOU MUST STOMP 10 CONSECUTIVE CREEPY 
CRAWLERS” 

PRINT“IN A ROW. THE AMOUNT OF CRITTERS, NAME AND 
LOCATION” 

PRINT“WILL BE CHOSEN AT RANDOM. TO BEGIN YOUR 
REIGN” 

РКІМТ“А5 AN ЕХТЕКМІМАТОК..... åå 

INPUT'JUST PRESS ENTER/RETURN”; X 

REM SET COUNTERS 

T=0:M=0:D=0:R=0:B=0 

REM GET NUMBER OF CRAWLERS 
C=INT(15*RND(0)+1):A=INT(15*RND(0)+1):I=INTG5*RND 
(0)+1) 

REM GET LOCATION OF CRAWLERS 

FOR I=1 TO 5:READ W$(D:NEXT 

RESTORE 

REM GET YOUR LOCATION 

FOR I=1 ТО 5:READ Y$(D: NEXT 

DATA KITCHEN, LIVINGROOM, HALL, BEDROOM, 
BATHROOM 

REM GET TYPE OF CRAWLER 

FOR I=1 TO 5:READ T$(D: NEXT 

DATA ROACH, SPIDER, ANT, CRICKET, TERMITE 

REM GET RANDOM CRAWLER 

U$-T$(NT(5*RND(0)--1) 

REM RANDOM LOCATION 

V$WS(NT(G"RND(0)- 1)) 

REM YOUR LOCATION 

Z$=YS(INT(S*RND(0)+1)) 

L=LEN(U$):LI=L+A:IF R> 1 THEN 580 
IT=INT(4*RND(0)+1: IF П=1 THEN П=2 

IF V$=Z$ THEN L1-INT(S*RND(0)-4-1) 

IF V$=“KITCHEN” THEN L1=INT(20*RND(0) +10) 

IF Q=2 THEN 420 


365 
410 
420 


430 


440 
450 
460 
470 
480 
500 


510 
520 
530 


540 
550 
560 


570 


580 


590 


595 
596 
597 
598 


600 


610 
620 
625 
630 
635 
640 


650 


PRINT"THIS IS A NORMAL SIZE”; I; "BEDROOM HOME.” 
FOR I=1 TO 1000:NEXT 

CLS:PRINT:PRINT“MR. EXTERMINATOR, THE AMOUNT 
OF CRAWLERS HAS” 

PRINT“BEEN SELECTED, YOU’LL HAVE TO DEAL WITH 
OUR LITTLE” 

PRINT“FRIEND THE ”;U$;“..... " 

IF L-8 THEN 530 

IF L=7 THEN 560 

IF L=5 THEN 500 

IF L=3 THEN 530 

PRINT:PRINT"THESE CRITTERS, ONCE STOMPED, CAN 
BE VERY MESSY" 

PRINT“SO KEEP THE BROOM AND DUST PAN HANDY !!" 
GOTO 580 

PRINT:PRINT"MOST OF THESE SPECIES ARE VERY 
SMALL, AS YOU" 

PRINT"LEARNED THROUGHOUT EXTERM' TRAINING." 
GOTO 580 

PRINT:PRINT'HOP... HOP, THAT'S WHAT THESE SUB- 
JECTS ARE GOOD" 

PRINT"FOR. BUT ONCE STOMPED, WELL, KEEP THE PAN 
HANDY." 

PRINT:PRINT"OKAY, YOUR CRITTER(OR CRITTERS) ARE 
ABOUT SO, SO" 

PRINT"INCHES FROM THE ”;V$;“. IF YOU'RE READY LET'S 
STOMP !?" 

PRINT"YOU ARE LOCATED IN THE '";Z$;".":PRINT 

IF V$="BEDROOM’ AND Z$="BEDROOM"THEN 598 

GOTO 600 

PRINT"YOU MIGHT BEIN THE SAME BEDROOM WITH THE 
CRAWLER !!” 

PRINT'HOW MANY STEPS (FROM YOUR LOCATION) DO 
YOU" 

PRINT"WANT TO TAKE, BEFORE YOU START STOMPING”; 
INPUT ST 

Q=2 

IF ST < Li THEN 640 

GOTO 660 

PRINT: PRINT "YOU'RE NOT GONNA REACH THEM BEFORE 
YOU STOMP.”:PRINT 

B=B+1:IF В > 6 THEN 655 
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651 
655 
658 
660 
665 
670 


680 
690 
691 
695 
698 
700 
710 


720 


730 
740 
750 
760 
790 
800 
805 
810 
815 


820 


830 
840 
850 
860 
870 
880 
885 
890 
900 
910 


920 
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GOTO 600 

GOSUB 1050 

GOTO 600 

IF ST > L1 THEN 670 

GOTO 700 

PRINT:PRINT“COME NOW... YOU'VE PASSED THE CRIT- 
TER UP, SURELY” 

PRINT“ WE CAN DO BETTER... STEP... STEP... STOMP.” 
В=В+1: IF B > 6 THEN 695 

GOTO 600 

GOSUB 1050 

GOTO 600 

M=M+1 

PRINT:PRINT"VERY GOOD, NOW YOU'RE WITHIN STOMP- 
ING RANGE, YOU'LL” 

PRINT"HAVE TO MOVE FAST AND MOVE SWIFT, LET ME 
KNOW” 

PRINT"NOW, HOW MANY STOMPS YOU WILL MAKE”; 
INPUT S 

REM WERE THEY STOMPED 

IF S < C ORS > C THEN 850 

REM OUTPUT WOOP-TEE-DOOS 
T=T+C-INT(3*RND(0)+)):IF T > = 10 THEN 960 

IF T < 1 THEN T=1 

PRINT 

PRINT“VERY GOOD STOMPING, YOU'VE STOMPED THE 
LOT OF” 

PRINT"THEM. EXTERM', YOU'RE CLOSER TO YOUR 
SODA-POP BREAK." 

РЕІМТ”........ TOTAL CRAWLERS STOMPED”;T 

FOR I=1 TO 1500:NEXT:RESTORE:B=0:GOTO 240 

REM STOMPED OUT 

D=D+C 

X=0 

PRINT 

PRINT“STOMP“ 

PRINT 

X=X+1:IF X < 3 THEN 880 

PRINT"WELL EXTERM’ MAN, YOU DIDN'T DO SO GOOD 
WITH YOUR” 

PRINT“FOOT WORK. STOMP HARDER NEXT TIME, THOSE 
LITTLE” 


930 


950 
960 
965 
970 
975 
980 
990 
1000 
1010 
1020 
1030 
1050 
1055 
1060 
1070 
1080 


PRINT U$;“WILL GET YOU IF YOU MISS ANY MORE STOMPS 
i? 

FOR I=1 TO 1500:NEXT:RESTORE:R=R+1:T=0:GOTO 340 
PRINT 

PRINT"YOU'VE STOMPED А TOTAL OF” T; “CRAWLERS.” 
PRINT“TIME FOR A SODA-POP BREAK EXTERM’ MAN.” 
PRINT"THEN WE'LL GO STOMP AGAIN." 

PRINT“YOU WILL STOMP AGAIN, WON'T YOU”; 

INPUT A$ 

IF A$="YES" THEN RESTORE:GOTO 220 

PRINT 

PRINT“THEY’RE GONNA GET YOU IN BED TONIGHT !!!” 
END 

FOR I=1 TO 1500:NEXT:CLS 

PRINT 

PRINT"GOOD GRIEF MAN !! YOU'VE MADE”; В; “АТТЕМР5” 
PRINT“AND HAVEN'T GOT THE FOOTWORK RIGHT YET !!" 
B=0:RETURN 
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Test your driving ability with this game, by meeting or exceeding 
the computer’s estimated miles per tank. You'll have a four-speed 
compact; you can change gears and input different speeds. 
Simple, right? Just don’t blow the engine, transmission, run 
out of fuel or cause the engine to sputter and stop completely!! 


Sample Run 


жж INTERSTATE 21 *** 
THIS IS THE GAME OF INTERSTATE - WHERE YOU LL ВЕ 
GIVEN A CAR AND A FULL TANK OF GAS. THE OBJECT 
OF THE GAME IS TO GET AS MANY MILES AS YOU CAN, 
FROM THE TANK OF GAS. 
YOU'LL BE EQUIPPED WITH THE FOLLOWING: 
A FOUR-SPEED COMPACT. 
А 16-GALLON FUEL TANK. 
AVERAGED AT 29 MILES PER GALLON, 
COMPUTER'S ESTIMATED MILES-PER-TANK IS: 461 
YOU MUST MEET OR EXCEED THIS AMOUNT..... 
PRESS ENTER/RETURN? 
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YOUR CAR HAS BEEN STARTED..... 

INPUT GEAR (1,2,3, OR 4)? 1 

INPUT SPEED (UP TO 65 M.P.H.)? 20 

STATUS: 

YOU ARE TRAVELLING AT 20 MILES PER HOUR. 
YOU ARE IN 1ST GEAR. 

DO YOU WANT TO SHIFT (Y/N)? Y 

INPUT SPEED (UP TO 65 M.P.H)? 40 

STATUS: 

YOU ARE TRAVELLING AT 40 MILES PER HOUR. 
YOU ARE IN 3RD GEAR. 

DO YOU WANT TO SHIFT (Y/N)? Y 

INPUT GEAR (1,2,3, OR 4)? 4 

INPUT SPEED (UP TO 65 M.P.H.)? 55 

STATUS: 

YOU ARE TRAVELLING AT 55 MILES PER HOUR. 
YOU ARE IN 4TH GEAR. 

DO YOU WANT TO SHIFT (Y/N)? М 

TOTAL FUEL CONSUMED: 3.7931 GALLONS 
FUEL LEFT IN TANK: 12.2069 GALLONS 

MILES TRAVELLED: 89.7011 

DO YOU WANT TO SHIFT (Y/N)? Y 

INPUT GEAR (1,2,3, OR 4)? 4 

INPUT SPEED (UP TO 65 M.P.H.) ? 60 

IF YOU’RE NOT PASSING, YOU REALLY SHOULD SLOW DOWN 
THE SPEED LIMIT HASN’T BEEN INCREASED EVERYWHERE. 
STATUS: 

YOU ARE TRAVELLING AT 60 MILES PER HOUR. 
YOU ARE IN 4TH GEAR. 

DO YOU WANT TO SHIFT (Y/N)? М 

TOTAL FUEL CONSUMED: 5.86207 GALLONS 
FUEL LEFT IN TANK: 10.1379 GALLONS 

MILES TRAVELLED: 136.472 

DO YOU WANT TO SHIFT (Y/N)? N 

TOTAL FUEL CONSUMED: 7.93104 GALLONS 
FUEL LEFT IN TANK: 8.06897 GALLONS 

MILES TRAVELLED: 191.097 

DO YOU WANT TO SHIFT (Y/N)? М 

TOTAL FUEL CONSUMED: 10 GALLONS 

FUEL LEFT IN TANK: 6 GALLONS 

MILES TRAVELLED: 245.429 

DO YOU WANT TO SHIFT (Y/N)? Y 
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INPUT GEAR (1,2,3, OR 4)? 4 

INPUT SPEED (UP TO 65 M.P.H.)? 50 

STATUS: 

YOU ARE TRAVELLING AT 50 MILES PER HOUR. 

YOU ARE IN 4TH GEAR. 

DO YOU WANT TO SHIFT (Y-N)? N 

TOTAL FUEL CONSUMED: 11.7241 GALLONS 

FUEL LEFT IN TANK: 4.27586 GALLONS 

MILES TRAVELLED: 284.326 

YOU ARE 176.674 MILES AWAY FROM COMPUTER'S ESTIMATION. 
THERE’S A GAS STATION 5 MILES UP THE ROAD. 

START GEARING DOWN..... 

DO YOU WANT TO SHIFT (Y/N)? N 

TOTAL FUEL CONSUMED: 13.4483 GALLONS 

FUEL LEFT IN TANK: 2.55172 GALLONS 

MILES TRAVELLED: 324.191 

YOU ARE 136.809 MILES FROM COMPUTER'S ESTIMATION. 
WOULD YOU LIKE TO REFUEL (Y/N)? М 

TOTAL FUEL CONSUMED: 15.1724 GALLONS 

FUEL LEFT IN TANK: .827586 

YOU ARE 99.6863 MILES AWAY FROM COMPUTERS’ ESTIMATION. 
WOULD YOU LIKE ТО REFUEL (Y/N)? М 

YOU'D BETTER SLOW DOWN THEN. 

DO YOU WANT TO SHIFT (Y/N)? N 

TOTAL FUEL CONSUMED: 16 GALLONS 

FUEL LEFT IN TANK: 0 GALLONS 

MILES TRAVELLED: 396.895 

50 SORRY TO TELL YOU..... BUT YOU'RE COMPLETELY 
OUT OF FUEL..... 

YOU'VE MISSED THIS ROUND... YOUR TOTAL MILES WERE 
396.895 

COMPUTERS' ESTIMATED MILES WERE 461 

A DIFFERENCE OF 64.1055 MILES. 

ARE YOU READY TO TRY AGAIN (Y/N? N 


NYJPTAPY T NYT A А КИТУ ҮЗ 7 DN T ING OT NR RT On n mee жж 
YY LL kaka LINA DX іуікукі, EN DINGIVEL VG YL, VAR ІМІЛІ ІШҮМІБ,. + + < о 


MR. SPEED ! 
END 


See Fig. 6-2 for the flowchart for this program. 


Program Listing 


20 RANDOM: CLS:M=0:IF R=2 THEN 60 
30 REM RANDOM INTERSTATE 
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Fi 


40 
50 
60 
70 
80 
90 


95 


g. 


SET MPT 
MPG 


PRINT 
INSTRUCTIONS 


a ч 
NO 


INPUT SPEED 


<3>6 > BLOWN ENGINE 


PRINT UPDATE 


YES 
OUT OF FUEL > 
YES MATCHED | 
ESTIMATE 
p CONGRATULATIONS "- 


MESSAGE 


Ms UPDATE 
6-2. The flowchart for Interstate. 


I-INT(S0*RND(0) +1) 

PRINT:PRINT TAB(20);"*** INTERSTATE 724%? 
PRINT:GOSUB 1000: TM=MP*GA-INT(4*RND(0)+2): SA=0:IF 
R=2 THEN 190 

РКІМТ“ТНІ5 IS THE GAME ОЕ INTERSTATE—WHERE 
YOU'LL БЕ” 

РКІМТ“СІУЕМ A CAR AND A FULL TANK OF GAS. THE 
OBJECT” 

PRINT“OF THE GAME IS TO GET AS MANY MLES AS YOU 
CAN,” 

PRINT FROM THE TANK OF GAS." 


PRINT 

PRINT"YOU'LL BE EQUIPPED WITH THE FOLLOWING:" 
PRINT"A FOUR-SPEED COMPACT.” 
PRINT“A”:GA;“-GALLON FUEL TANK.” 
PRINT“AVERAGED AT”; MP; "MILES PER GALLON,” 
PRINT“COMPUTER’S ESTIMATED MILES PER TANK IS: 
“STM 

PRINT“YOU MUST MEET OR EXCEED THIS AMOUNT..... ái 
INPUT"PRESS ЕМТЕК/КЕТОКМ” Аф 

CLS: PRINT 

PRINT“YOUR CAR HAS BEEN STARTED..... Ў 
PRINT"INPUT GEAR (1,2,3, OR 4)”; 

INPUT G:IF G> 4 THEN 320 

PRINT"INPUT SPEED (UP TO 65 M.P.H.)"; 

INPUT S:IF $260 THEN PRINT:GOTO 700 

GOTO 330 

PRINT“THAT’S A GEAR YOU DON'T HAVE”:GOTO 305 

IF G=1 AND S > 30 THEN 510 

IF G=4 AND 5 < 30 THEN 540 

REM BLOWN ENGINE 

IF S > 65 THEN PRINT"TURKEY !! YOU'VE JUST BLOWN A 
$500.00 ENGINE !!”:GOTO 760 

REM OUTPUT STATUS 

PRINT:PRINT'STATUS:" 

PRINT“YOU ARE TRAVELLING AT”;S;“MILES PER HOUR.” 
PRINT“YOU ARE ІМ” б; 

GOSUB 1030 

PRINT:INPUT"DO YOU WANT TO SHIFT (Y/N)”;G$ 

IF G$="Y" THEN 305 

О-О-ҒІЛЕ Q=4 AND G < > 4 THEN GOSUB 1150 

GOSUB 1080: IF Q=5 AND G < > 4 THEN 510 

IF FL < 1 THEN FL=0:FC=GA 

PRINT:PRINT"TOTAL FUEL CONSUMED: “ЕС; 
“GALLONS.” 

PRINT FUEL LEFT IN TANK: "FL; GALLONS.” 
PRINT“MILES TRAVELLED: ”;SA 

IF FL > 0 AND FL < 8 THEN PRINT"YOU ARE";(TM- 
SA);“MILES AWAY 

FROM COMPUTER’S ESTIMATION." 

IF FL <= 0 THEN 690 

IF FL <= 4 THEN 730 

IF FL=5 THEN 580 


505 
510 
520 
530 
540 


550 


560 
570 
580 
600 
610 


620 
630 
640 


650 
660 
670 


680 
690 
700 


710 


720 
730 
740 


750 
760 


770 
780 
790 
800 
805 


810 


GOTO 430 

PRINT:PRINT"YOU SHOULD'VE CHANGED GEARS..... Ж 
PRINT"YOU HAVE JUST BLOWN UP THE TRANSMISSION !!” 
GOTO 760 

PRINT:PRINT“IF YOU'RE GOING TO TRAVEL SO SLOW, 
WHY DIDN’T” 

PRINT"YOU GEAR IT DOWN... THE ENGINE JUST SPUT- 
TERED..." 

PRINT"... ANDSTOPPED..... И 

СОТО 760 

IF T=1 THEN 610 

I=INT(2*RND(0)+1):PRINT: ON I GOTO 610,640 
PRINT"YOUR FUEL IS AT”; FL; “GALLONS, YOU JUST 
PASSED UP” 

PRINT"A GAS STATION”; (5-10); "MILES BACK 11” 

GOTO 505 

PRINT"THERE'S A GAS STATION”; (S-S) +5; "MILES UP THE 
ROAD” 

PRINT'START GEARING DOWN. .... ч 

T=1:GOTO 505 

PRINT:PRINT"SO SORRY ТО TELL YOU... BUT YOU'RE 
COMPLETELY" 

PRINT"OUT OF FUEL..... Å 

GOTO 850 

РКІМТЧТЕ YOU'RE NOT PASSING, YOU REALLY SHOULD 
SLOW DOWN.” 

PRINT“THE SPEED LIMIT HASN’T BEEN INCREASED 
EVERYWHERE.” 

GOTO 360 

PRINT:INPUT“WOULD YOU LIKE TO REFUEL (Y/N)”; R$ 
IF R$ < > “Y” THEN PRINT“YOU’D BETTER SLOW DOWN 
THEN": GOTO 430 

GOTO 860 

PRINT:PRINT“ WELL THAT'S THE END OF INTERSTATE 
PRINT"ARE YOU READY TO TRY AGAIN (Y/N)' 

INPUT A$ 

IF A$ < > “М” THEN R=2:GOTO 20 

PRINT 

PRINT“WE’LL TRY A MORE ECONOMICAL CAR NEXT TIME 


+ 9 è 9" t 


PRINT"MR. SPEED !!” 
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820 
850 
860 
870 
880 
890 
895 
900 
910 


920 


930 
940 
945 


950 
955 
960 
965 
970 
975 


980 


985 
990 


995 
1000 
1010 
1020 
1030 
1040 


TALA 
жолау 


1060 
1070 
1080 
1090 
1110 
1120 
1130 
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END 

REM 

REM SELECT STATEMENT FOR ROUND 

IF SA=TM THEN 900 

IF SA < TM THEN 940 

IF SA > TM THEN 970 

GOTO 770 

PRINT 

PRINT“HEY !! THAT’S REALLY GREAT, YOU’VE WORKEDIT 
OUT AND” 

PRINT“MET THE COMPUTER’S ESTIMATED MILES PER 
TANK FULL..... 2 

GOTO 760 

PRINT 

PRINT"YOU'VE MISSED THIS ROUND... YOUR TOTAL 
MILES WERE”;SA 

PRINT'COMPUTER'S ESTIMATED MILES WERE"; TM 


PRINT"A DIFFERENCE OF”; TM-SA; "MILES." 

IF FL > 0 THEN 990 

GOTO 760 

PRINT 

PRINT"YOU SHOULD BECOME A RACE-CAR DRIVER, 
YOU'VE СОТТЕМ”5А-ТМ 

РКІМТ“МОКЕ MILES THAN COMPUTER'S ESTIMATED 
MILES PER TANK !!” 

GOTO 770 

PRINT"YOU STILL HAD”; FL; "GALLONS OF FUEL LEFT.. 
YOU SHOULD'VE" 

PRINT"GONE FOR A FEW MORE MILES ..... ":GOTO 760 
MP=INT(35*RND(0)+1):IF MP « 15 THEN 1000 
GA=INT(20*RND(0)+):IF GA «12 THEN 1010 

RETURN 

IF G=1 PRINT “ST GEAR.” 

IF G=2 PRINT “ND GEAR.” 


TES 9 DNIA GT TS CLEAR, ” 
AL X —O L АМАЧ L ANLY (21211 


IF G=4 PRINT “TH GEAR.” 
RETURN 

М--М--5 

FC=M/MP 

FL=GA-FC 
SA=S+SA-(10*RND(0)+5) 
FOR I=1 TO S STEP .5:NEXT 


1140 
1145 
1150 
1160 


1170 


1180 
1190 


RETURN 

REM CHANGE GEARS !! 

PRINT 

PRINT“YOU ARE GOING DOWN AN INTERSTATE—NOT 
THROUGH” 

PRINT'DOWNTOWN TRAFFIC—CHANGE GEARS, THE 
TRANSMISSION" 

PRINT"IS GETTING HOT !!” 

PRINT: Q=0:RETURN 
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You'll get to work your way out of a maze with this game. The 
computer will print a series of asterisks on the screen; you must 
guess the location of the last one correctly. That will take you one 
day closer to your freedom. When you're ready to input a number 
press the ‘M’ key to stop the computer. Have fun!! 


Sample Run 
Жжжж FREEDOM fe ok He 


INSTRUCTIONS? YES 

YOU ARE LOCKED INSIDE A MAZE, TO REACH YOUR FREEDOM 
YOU MUST ENTER A NUMBER THAT WILL ALMOST MATCH 
WHERE THE COMPUTER HAS PRINTED AN ASTERISK. WHEN 
THE COMPUTER PRINTS THE FIRST ASTERISK IT WILL 

PRINT ITS LOCATION ABOVE IT - AFTER THAT YOU'RE ON 
YOUR OWN. TO THE LEFT YOU WILL SEE COMPUTER'S 
MOVES - DON'T LET IT REACH 10, DOING 50 STARTS YOUR DAYS 
OVER. FOR EACH CORRECT ENTRY, HOWEVER, YOU WILL BE 
ONE DAY CLOSER TO YOUR FREEDOM. 
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FOR EACH INCORRECT ENTRY THE 
COMPUTER WILL ADD ONE MORE DAY. 
PRESS ENTER/RETURN TO CONTINUE? 
WHEN YOU'RE READY TO INPUT A NUMBER, PRESS THE 
M KEY. ENTER A NUMBER WHERE YOU THINK THE ASTERISK 
IS LOCATED, EITHER ONE NUMBER BELOW OR ONE NUMBER 
ABOVE. 
EXAMPLE: IF YOU THINK THE ASTERISK IS LOCATED AT 20 
THEN ENTER 19 OR 21. IF YOU ENTER 20 THEN THE COMPUTER 
WILL HAVE A MESSAGE FOR YOU !! 
THE SMALLEST NUMBER YOU'LL NEED TO ENTER IS 10; THE 
HIGHEST IS 40. . . . WHEN YOUR DAYS LEFT ARE 0 
YOU'LL HAVE YOUR FREEDOM. .... GOOD LUCK !! 
PRESS ENTER/RETURN TO BEGIN? 
ЖЕЖ ЖЖЖ k ok DAYS LEFT 20 he fe fe Oe E ae ah a ah ae 
COMPUTER 
MOVES: 
1 36 
2 ж ж 
3 * 
4 ж 
(Press М) 
YOUR NUMBER? 32 
SORRY..... THAT NUMBER ONLY ADDED ANOTHER DAY. 
ЖЖЖ ЖЕЖ ЕЖ ГАҮ5 ІЕЕТ 21 ЖЖЖ ЖЖ dok 
COMPUTER 
MOVES: 
1 ж 


cO» олњ ш м 


7 ж 


(Press М) 
YOUR NUMBER? 34 
ONLY 20 DAYS LEFT, KEEP IT UP !! 


3k k kok sk oR ok ze oe ook DAYS LEFT 20 ЖЕЖ ЖҰ 
COMPUTER 


MOVES: 
185 


ль W м н 
+ 


(Press М) 
YOUR NUMBER? 34 
SORRY..... THAT NUMBER ONLY ADDED ANOTHER DAY. 


aoe DAYS LEFT 2] жене 


COMPUTER 

MOVES: 

1 27 
2 ш 


(Press М) 
YOUR NUMBER? 24 


ONLY 20 DAYS LEFT, KEEP IT UP !! 
ЖЖ se se de ne see DAYS I EFT 20 kikk sje sje sjefene 


COMPUTER 
MOVES: 

1 * 
2 5 

З 


(Press М) 
YOUR NUMBER? 31 
LOOKING REAL GOOD NOW, ONLY 19 DAYS. 


oe oie se ie ok sjokk DAYS LEFT 19 ЖЕ ЕЕЕ 


СОМРОТЕК 
MOVES: 34 


wm C М ee 


(Press M) 


YOUR NUMBER? 24 
LOOKING REAL GOOD NOW, ONLY 18 DAYS. 
STOP 
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As you can see from this partial run, depending on how many 
days you start out with, it could take you awhile to reach your free- 
dom. 

Just remember to stop the computer use the M key; enter a 
number representing where you think the last asterisk is located. 
You can also challenge your friends to see who can gain their 
freedom in the least amount of days. See Fig. 6-3 for the flowchart 
for this program. 


EE 


PRINT 

INSTRUCTIONS 
SET YOUR 
DAYS — — 


SET COMPUTER 
DAYS 


abe GETTING 


CLOSER MESSAGE 
GET ASTERISK 


LOCATION 


PRINT ASTERISK 
COMPUTER MOVE 


NO 


YES 
INPUT NO 
MOVE 
YES YES YES 
MESSAGE турам 
MESSAGE 
PLAY _YES 
< AGAIN 
NO 


Fig. 6-3. The flowchart for Freedom. 
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Program Listing 


100 
150 
200 
250 
300 
350 
400 
450 
500 
550 
600 


650 
660 
700 
750 
800 
850 
900 
950 
1000 
1050 
1100 
1150 


1200 
1250 


1300 
1350 
1400 


1450 
1500 
1550 
1600 
1650 
1700 


1750 
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CLS:PRINT: PRINT TAB(20); “**** FREEDOM ****” 

PRINT 

INPUT"INSTRUCTIONS";I$ 

IF $ « "YES" THEN 350 

GOSUB 2900; REM INSTRUCTIONS 

REM YOUR DAYS 

C=0 

REM COMPUTER SET DAYS 

D=INT(50*RND(0) +5):IF D < 20 THEN 500 

CLS 

PRINT ТАВ(10 ая DAYS LEFT" :(D-C): 
МЕ oft oh ofc Ж ЖЖЖ 

PRINT ТАВ(0); “COMPUTER” 

PRINT "MOVES:" 

A$=INKEY$ 

IF A$ <> "M" THEN 850 

GOTO 1150 

GOSUB 2750:IF P=10 GOTO 2500 

REM GET ASTERISK “%” LOCATION 

M=INT(40*RND(0) +1):IF M < 10 THEN 950 

P=P-+1:IF P < 2 PRINT TAB (M—1);M 

PRINT ТАВ(0);Р ТАВ(М);“*” 

СОТО 700 

IF Р=1 THEN PRINT“WAIT ‘TIL AFTER MY FIRST MOVE 
!!:GOSUB 2750: P=0:GOTO 550 

INPUT“YOUR NUMBER”; Y 

IF Y=M THEN PRINT“DUMMY !! THAT'S MY LOCATION !!”: 
GOSUB 2750: P=0:GOTO 550 

IF ABS(Y-M) >1 THEN 1400 

C=C+1:GOTO 1500 

PRINT'SORRY..... THAT MOVE ONLY ADDED ANOTHER 
DAY." 

GOSUB 2750: DzD-- 1T P-0- СОТО 550 

IF (D— C) >30 THEN 1850 

IF (0-С) «10 THEN 1700 

IF (0-С) > 10 AND (D- C) < 20 THEN 1750 

IF (D--C) > 21 AND (D-C) < 30 THEN 1800 
PRINT“ONLY”;(D—C);“DAYS LEFT, KEEP IT UP !!:GOTO 
1900 

PRINT"LOOKING REAL GOOD NOW, ONLY'5(D- C); 
"DAYS.": GOTO 1900 


1800 


1850 
1900 
1950 
2000 
2050 
2100 
2150 


2200 


2250 
2300 
2350 
2400 


2450 
2500 
2550 
2600 
2650 
2700 
2750 
2800 
2900 
2910 
2920 
2930 
2940 
2950 
2960 


2970 


PRINT“NOT BAD..... YOU'RE GETTING CLOSER AND 
CLOSER.”: GOTO 1900 

PRINT“RIGHT ON THE MONEY !!” 

REM LOOP AGAIN IF D <> C 

IF C=D THEN 2050 

GOSUB 2750:P=0:GOTO 550 

GOSUM 2750 

CLS:PRINT 

PRINT“YEA !! YOU’VE DONE IT - YOU HAVE YOUR FREE- 
DOM NOW” 

PRINT"WELL BUSTER, YOUSEEM TO BESO GOOD AT THIS 
PRINT“ WOULD YOU THINK ABOUT TRYING IT AGAIN"; 
INPUT I$ 

IF I$=“YES” THEN 100 

PRINT“I NOTICED YOU KEPT ADDING DAYS, INSTEAD OF 
SUBTRACTING !!” 

END 

PRINT“LOOKA’ HERE BUSTER..... 3 

РРІМТ“ГУЕ MADE";P;"MOVES - YOU HAVEN'T DONE ANY- 
THING.” 

PRINT“YOUR TOTAL DAYS START OVER NOW !!” 

FOR І-1 TO 2000:NEXT 

C=0:P= 0:GOTO 550 

FOR I=1 TO 1000:NEXT 

RETURN 

CLS:PRINT 

PRINT“YOU ARE LOCKED INSIDE A MAZE, TO REACH 
YOUR FREEDOM” 

PRINT“YOU MUST ENTER A NUMBER THAT WILL ALMOST 
MATCH” 

PRINT“WHERE THE COMPUTER HAS PRINTED AN AS- 
TERISK. WHEN” 

РРІМТ“ТНЕ COMPUTER PRINTS THE FIRST ASTERISK IT 
WILL” 

PRINT“PRINT ITS LOCATION ABOVE ІТ - AFTER THAT 
YOU'RE ОМ” 

PRINT“YOUR OWN, TO THE LEFT YOU WILL SEE COMPU- 
TER’S” 

PRINT"MOVES — DON’T LET IT REACH 10, DOING 50 
STARTS YOUR DAYS” 
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PRINT“OVER. FOR EACH CORRECT ENTRY, HOWEVER, 
YOU WILL” 

PRINT“BE ONE DAY CLOSER TO YOUR FREEDOM.” 
PRINT“FOR EACH INCORRECT ENTRY THE” 
PRINT“COMPUTER WILL ADD ONE MORE DAY.” 
PRINT:INPUT“PRESS ENTER/RETURN TO CONTINUE”; 
X$: CLS: PRINT 

PRINT“WHEN YOU’RE READY TO INPUT A NUMBER, 
PRESS THE” 

PRINT“M KEY. ENTER A NUMBER WHERE YOU THINK THE 
ASTERISK” 

PRINT"IS LOCATED - EITHER ONE BELOW OR ONE 
NUMBER ABOVE” 

PRINT“EXAMPLE: IF YOU THINK THE ASTERISK IS LO- 
CATED AT 20” 

PRINT“ THEN ENTER 19 ОК 21, IF YOU ENTER 20 THE COM- 
PUTER” 

PRINT"WILL HAVE A MESSAGE FOR YOU!” 

PRINT"THE LEAST NUMBER YOU'LL NEED TO ENTER 
IS 10 THE" 

PRINT"HIGHEST IS 40..... WHEN YOUR DAYS LEFT ARE" 
PRINT"0 YOU'LL HAVE YOUR ЕКЕЕПОМ..... GOOD 
LUCK !!” 

PRINT:INPUT"PRESS ENTER/RETURN TO BEGIN”; X$ 
RETURN 


Electrician 


2 


By an “Z 


You are faced with a control box of up to 16 connections and up to 10 
loose wires. Connecting them will be easy as long as you don’t 
connect a live wire with the power on. You see—all the wires are 
grounded except for two; all wires must be connected with the 
power on, except for the two ‘live’ ones. You must turn the power 
off before connecting those or you'll blow the fuses and have to 
start from scratch. 
Good Luck! 
Sample Run 


жж ELECTRICIAN *** 
INSTRUCTIONS WILL BE LISTED AS YOU PROGRESS, EACH TIME 
A WIRE OR CONNECTION IS USED, IT WILL BE REPLACED 
WITH A 0 (ZERO). 
PRESS A KEY TO BEGIN CONNECTIONS..... 
THE CONTROL BOX CONTAINS 13 CONNECTIONS. YOU 
HAVE 10 WIRES TO CONNECT TO THIS BOX. 
CONNECTIONS 12345678 9 10 11 12 13 
WIRES: 123456789 10 
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ALL WIRES ARE GROUNDED EXCEPT FOR TWO. THE TWO 
WIRES THAT ARE LIVE SHOULDN'T BE CONNECTED UNTIL YOU 
TURN THE POWER OFF. THE OTHERS MUST BE CONNECTED 
WITH THE POWER ON. IF YOU CONNECT A LIVE WIRE WITH 
POWER ON, YOU'LL HAVE TO START OVER WITH ANOTHER BOX 
AND CONNECTIONS. .... 


THE CONTROL BOX CONTAINS 13 CONNECTIONS. YOU 
HAVE 10 WIRES TO CONNECT TO THIS BOX. 
CONNECTIONS: 12345678910 11 12 13 

WIRES: 12345678910 

INPUT WIRE #?3 

TO CONNECTION # ? 5 

YOU'RE SAFE... 50 FAR. IF YOU THINK YOU'RE READY 
TO CONNECT THE LIVE WIRES INPUT YES; OTHERWISE INPUT 
NO? NO 

LET'S CONTINUE THEN..... 

THE CONTROL BOX CONTAINS 12 CONNECTIONS. YOU 
HAVE 9 WIRES TO CONNECT TO THIS BOX. 
CONNECTIONS: 1234067891011 12 13 

WIRES: 12045678910 

INPUT WIRE # ? 8 

TO CONNECTION # ? 2 

YOU'RE SAFE... SO FAR. IF YOU THINK YOU'RE READY 
TO CONNECT THE LIVE WIRES INPUT YES; OTHERWISE INPUT 
NO? NO 

LET'S CONTINUE THEN..... 

THE CONTROL BOX CONTAINS 11 CONNECTIONS. YOU 
HAVE 8 WIRES TO CONNECT TO THIS BOX. 
CONNECTIONS: 103406789 10 11 12 13 

WIRES: 12045670910 

INPUT WIRE # ? 9 

TO CONNECTION # ? 11 

YOU'RE SAFE... SO FAR. IF YOU THINK YOU'RE READY 
TO CONNECT THE LIVE WIRES INPUT YES; OTHERWISE INPUT 
NO? NO 

LET'S CONTINUE THEN..... 

THE CONTROL BOX CONTAINS 10 CONNECTIONS. YOU 
HAVE 7 WIRES TO CONNECT TO THIS BOX. 
CONNECTIONS: 103406789 100 12 13 

WIRES: 12045670010 

INPUT WIRE # ? 10 
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TO CONNECTION # ? 8 

YOU'RE SAFE... SO FAR. IF YOU THINK YOU'RE READY 
TO CONNECT THE LIVE WIRES INPUT YES; OTHERWISE INPUT 
NO? NO 

LET'S CONTINUE THEN ..... 

THE CONTROL BOX CONTAINS 9 CONNECTIONS. YOU 

HAVE 6 WIRES TO CONNECT TO THIS BOX. 

CONNECTIONS: 10340670910012 13 

WIRES: 1204567000 

INPUT WIRE # ? 6 

TO CONNECTION # ? 12 

YOU'VE JUST CONNECTED A LIVE WIRE WITHOUT TURNING 
THE POWER OFF !!... .YOU'VE BLOWN THE FUSES !! 

NOW YOU'LL HAVE TO START OVER... . SORRY. 

PRESS A KEY TO BEGIN CONNECTIONS ..... 

THE CONTROL BOX CONTAINS 8 CONNECTIONS. YOU 

HAVE 6 WIRES TO CONNECT TO THIS BOX. 

CONNECTIONS: 12345678 

WIRES: 123456 

INPUT WIRE # ? 4 

TO CONNECTION # ? 4 

YOU'VE JUST CONNECTED A LIVE WIRE WITHOUT TURNING 
THE POWER ОҒЕ!!.... YOU'VE BLOWN THE FUSES !! 
NOW YOU'LL HAVE TO START OVER... . SORRY. 

PRESS A KEY TO BEGIN CONNECTIONS ..... 

STOP 


It is possible to complete the connections, as long as the two 
‘live’ wires are connected last, with the power off. By the way, you 
can't turn the power off with more than two wires left... so I 
wouldn’t try it. See Fig. 6-4 for the flowchart for this program. 


Program listing 


50 DIM А(18),У/(11) 

55 CLS:PRINT 

60 PRINT:PRINT TAB(20);“*** ELECTRICIAN ***” 

70 PRINT 

75 PRINT “INSTRUCTIONS WILL BE LISTED AS YOU PRO- 
GRESS, EACH TIME” 

80 PRINT"A WIRE OR CONNECTION IS USED, IT WILL BE RE- 
PLACED” 

90 PRINT"WITH А 0 (ZERO).” 
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95 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
245 
250 
260 
270 
280 
285 
286 
290 


300 
310 
320 
330 
340 
350 
360 
370 
380 


390 
400 
410 
420 
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GOSUB 700:CLS 

REM GET WIRING 

FOR W=1 TO INT(O"*RND(0)-D): NEXT 

REM CHECK FOR ENOUGH WIRES 

IF W «5 THEN 100 

REM GET TWO 'LIVE' WIRES 

FOR I=1 TO 2 

L(D-W-INT(S*RND(0) 

LW(DzL(Q)-2Z:IF LW(D < 1 THEN 100 

NEXT 

REM OVERLOAD? 

IF L(1) > W THEN 100 

IF L()=LW(2) THEN 100 

REM THE REST ARE SAFE FOR CONNECTION 

REM NOW GET CONNECTIONS 

C=(W+3) 

WW=W:CC=C 

REM MAKE TWO DUMMY CONNECTIONS 
D(1)=L(1)+INT(S*RND(0) 

D(2)=LW(2)+INT(3*RND(0)) 

IF D(1) > W OR D(2) > W THEN 100 

FOR I=1 TO C:READ A(D:NEXT: RESTORE 

FOR 1=1 TO W:READ W(D: NEXT 

PRINT:PRINT“THE CONTROL BOX CONTAINS"; CC;"CON- 
NECTIONS, YOU" 

PRINT"HAVE”; WW;“WIRES TO CONNECT TO THIS BOX." 
PRINT:PRINT"CONNECTIONS: ”; 

FOR I=1 TO C:PRINT A(D;: NEXT 

PRINT:PRINT 

PRINT"WIRES: "5 

FOR I=1 TO W:PRINT W(D;: NEXT:PRINT 

REM SKIP INSTRUCTIONS IF R > 1 

IF R > 1 THEN 450 

PRINT: PRINT"ALL WIRES ARE GROUNDED EXCEPT FOR 
TWO. THE TWO” 

PRINT“WIRES THAT ARE LIVE SHOULDN'T BE CONNECTED 
UNTIL YOU” 

PRINT"TURN THE POWER OFF. THE OTHERS MUST BE 
CONNECTED” 

PRINT“WITH THE POWER ON. IF YOU CONNECT A LIVE 
WIRE WITH” 

PRINT“POWER ON, YOU’LL HAVE TO START OVER WITH 


ANOTHER BOX” 

430 PRINT“AND CONNECTIONS..... ":GOSUB 700 

440 R=2:GOTO 290 

450 PRINT:PRINT“INPUT WIRE #”; 

460 INPUT WR :IF WR > W THEN PRINT“YOU HAVEN'T THAT 
MANY WIRES”: 
PRINT: GOTO 450 

465 IF WWR)=0 THEN PRINT"YOU'VE USED THAT WIRE... 
":GOTO 450 

470 REM W(WR)=0 DELETE WIRE IF SAFE 


START MESSAGE 


SETUP WIRING 


PRINT WIRES 
AND CONNECTIONS 


INPUT WIRES 
AND CONNECTIONS 


<<. YES 
<W =D> ALREADY USED 
NO 
E ® 
NO _| SORRY MESSAGE 
| START OVER 


| YES 
«WR = LW(2J>— 
_NO 


YES 


CONGRATULATIONS 
MESSAGE 


STOP 


Fig. 6-4. The flowchart for Electrician. 
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475 
480 


490 


500 
530 
540 
545 
550 


560 


570 
580 
590 
595 
600 
620 
630 
640 


850 


660 
670 
680 


690 
700 
710 
720 
750 
755 
760 
770 
780 


790 


800 
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PRINT"TO CONNECTION #”; 

INPUT CN:IF CN > C THEN PRINT"DO YOU SEE A NUM- 
BER";CN;"TO CONNECT TO?" PRINT:GOTO 475 

IF A(CN)=0 THEN PRINT"THAT CONNECTION HAS BEEN 
TAKEN . . .":GOTO 475 

REM A(CN)=0 DELETE CONNECTION IF USED 

IF WR=L(1) OR WR=LW(2) THEN 640 

IF CN=D(1) OR CN=D(2) THEN 680 

WW=WW-1:CC=CC-1 

PRINT:PRINT"YOU'RE SAFE .. . SO FAR. IF YOU THINK 
YOU'RE READY” 

PRINT"TO CONNECT THE LIVE WIRES INPUT YES; OTHER- 
WISE INPUT NO”; 

INPUT A$ 

IF A$ < > "YES” THEN 595 

GOTO 750: REM CONNECTIONS READY 

IF WW < 3 THEN 830 

PRINT: PRINT"LET'S CONTINUE THEN..... » 
W(WR)=0:A(CN)=0:REM DELETE WIRE AND CONNECTION 
GOTO 290 

PRINT:PRINT"YOU'VE JUST CONNECTED A LIVE WIRE 
WITHOUT TURNING" 

PRINT"THE POWER OFF !!.... YOU'VE BLOWN THE FUSES 
Hn 

PRINT“NOW YOU'LL HAVE TO START OVER . . . SORRY." 
GOSUB 700:RESTORE:GOTO 100 

PRINT:PRINT"SORRY... THERE ARE TWO DUMMY CON- 
NECTIONS," 

PRINT"AND #”;CN;“IS ONE OF THEM.”:PRINT:GOTO 475 
PRINT"PRESS A KEY TO BEGIN CONNECTIONS . .... ? 
A$=INKEY$:IF A$=“ " THEN 710 

CLS:PRINT:RETURN 

REM CHECK WIRES—OUTPUT STATEMENT 

IF WW=2 THEN 860 

IF WW < > 2 THEN I=INT(2*RND(0)+1) 

ON I GOTO 780,800 

PRINT:PRINT"YOU'RE NOT READY YET, YOU STILL 
HAVE”; (WW-2) 

PRINT“GROUNDED WIRES THAT NEED CONNECTED FIRST 


PRINT:PRINT“WELL YOU'VE DONE ІТ NOW—CUT THE 
POWER WHEN YOU” 


810 


820 
830 


840 
850 
860 
870 
880 
890 
900 


940 
950 


PRINT“STILL HAD”;(WW-2);“GROUNDED WIRES TO BE 
CONNECTED !!” 

GOTO 660 

PRINT:PRINT“DUMMY !! YOU ONLY HAD TWO WIRES LEFT 
tt” 

PRINT“WHY DIDN'T YOU TURN THE POWER OFF ??” 


GOTO 660 

PRINT:PRINT"VERY WELL DONE !! YOU'VE CONNECTED 
ALL THE” 

PRINT“WIRES AND DIDN’T BLOW A FUSE, CONGRATULA- 
TIONS ARE” 

PRINT“IN ORDER. HAVE YOU THOUGHT OF LANDING A 


POSITION 

PRINT“WITH A LARGE ИЕМ... TO CONNECT RANDOM 
WIRES ???" 

END 

DATA 1,2,3,4,5,6,7,8, 9, 10,11,12,13,14, 15, 16 

DATA 1,2,3,4,5,6,7,8,9, 10 
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You want to find a treasure? This is the game for it. You'll be 
moving around trying to overcome about eight obstacles. If you can 
do that you'll have the treasure you've been looking for. Just don't 
reach the eight obstacles! 


Sample Run 


INSTRUCTIONS: YOU ARE LOOKING FOR A LOST TREASURE. 
TO FIND THAT TREASURE YOU'LL HAVE TO OVERCOME SOME 
OBSTACLES. TO OVERCOME THESE OBSTACLES ALL YOU HAVE 
TO DO IS MOVE AROUND THEM. ENTERING A NUMBER FROM 
0 TO -5 WILL MOVE YOU BACK, LEFT, RIGHT OR 

STRAIGHT AHEAD, SLOW. 

ENTERING A NUMBER FROM 0 TO 5 WILL MOVE YOU 
STRAIGHT AHEAD. 

TO PROCEED PRESS ENTER/RETURN? 

AFTER YOU INPUT YOUR MOVE, THE COMPUTER 

WILL OUTPUT YOUR LOCATION (MAYBE). 

INPUT YOUR MOVE? 3 

YOU'RE GETTING CLOSER, ONLY 12.3169 FEET AND YOU'LL 
HAVE 
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THE TREASURE YOU'VE BEEN LOOKING FOR. JUST WATCH THE 
OBSTACLES. THEY’RE STILL FLOATING AROUND OUT THERE. 
INPUT YOUR MOVE? -1 

YOU'RE GETTING CLOSER, ONLY 11.8169 FEET AND YOU’LL 
HAVE 

THE TREASURE YOU'VE BEEN LOOKING FOR. JUST WATCH THE 
OBSTACLES. THEY’RE STILL FLOATING AROUND OUT THERE. 
INPUT YOUR MOVE? 3 

THAT DIDN'T WORK !! 

YOU HAVE 8 OBSTACLES TO OVERCOME. 

IF YOU DON'T LOCATE THE TREASURE BEFORE THE LAST 
OBSTACLE, YOU'LL HAVE TO START OVER. 

OBSTACLE #1 

THERE IS A LARGE SNAKE OVER YOUR HEAD, IF IT STRIKES 
YOU—UGH--GOODBYE CHARLIE !! 

INPUT YOUR MOVE? -4 

THAT DIDN’T WORK !! 

OBSTACLE #2 


| START 
MESSAGE 
SETUP 
OBSTACLES 


INPUT MOVE АЗ = АЗ + 1 
Ме SELECT PRINT 
OBSTACLE OBSTACLE 
YES 


NO 


SORRY 


А MESSAGE 
TREASURE LOCATED à 


MESSAGE 


ANOTHEH 
ROUND 


Fig. 6-5. The flowchart for Treasure. 
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ОН--ОН... GUESS WHAT’S GOT YOU SURROUNDED? 
ABOUT 8 HEADHUNTERS !! GUESS WHO’S HEAD THEY’LL HAVE 
IF YOU DON’T GET OUT OF THIS ONE? 
INPUT YOUR MOVE? -2 
YOU'RE GETTING CLOSER, ONLY 11.3169 FEET AND YOU'LL 
HAVE 
THE TREASURE YOU'VE BEEN LOOKING FOR. JUST WATCH THE 
OBSTACLES. THEY’RE STILL FLOATING AROUND OUT THERE. 
INPUT YOUR MOVE? 3 
YOU'RE GETTING CLOSER, ONLY 10.8169 FFET AND YOU'LL 
HAVE 
THE TREASURE YOU'VE BEEN LOOKING FOR. JUST WATCH THE 
OBSTACLES. 
INPUT YOUR MOVE? 2 
THAT DIDN'T WORK !! 
OBSTACLE #3 
STOP! SOP! 
YOU ARE ABOUT TO STEP INTO SOME QUICKSAND, DON’T STEP 
FORWARD 
OR YOU'LL NEVER SEE THE TREASURE !! 
INPUT YOUR MOVE? 
STOP 

This is only a partial run. The game doesn’t end until you have 
used all eight obstacles or you reach the treasure. If you find 
yourself in a jam, try entering 0 for a move. See Fig. 6-5 for the 
flowchart for this program. 

Good Luck!! 


Program listing 


10 CLS:B=0:PRINT 

30 PRINT TABO; TREASURE” 

40 PRINT:IF R=1 THEN 130 

50 PRINT“INSTRUCTIONS: YOU ARE LOOKING FOR A LOST 
TREASURE.” 

60 РКІМТ“ТО FIND THAT TREASURE YOU'LL HAVE ТО 
OVERCOME SOME” 

70 PRINT"OBSTACLES. TO OVERCOME THESE OBSTACLES 
ALL YOU HAVE” 

80 PRINT“TO DO IS MOVE AROUND THEM. ENTERING A 
NUMBER FROM” 

90 PRINT“O TO -5 WILL MOVE YOU BACK, LEFT, RIGHT OR” 

95 PRINT'STRAIGHT AHEAD SLOW.” 


200 


100 


110 
130 
140 
150 
155 
170 
180 
190 
200 
205 


210 
220 
230 


240 
250 
260 


265 
270 
275 
280 
290 
300 
310 
320 
330 
340 


350 


360 
380 
390 
400 
410 


420 


PRINT"ENTERING A NUMBER FROM 0 ТО 5 WILL MOVE 
YOU” 

PRINT'STRAIGHT AHEAD." 

REM SET AMOUNT ОЕ OBSTACLES—GET CORRECT MOVE 
A2=8:A3=A2-7 

GOSUB 770 

IF R=2 THEN FOR T=1 TO 1000:NEXT:GOTO 190 
PRINT:INPUT"TO PROCEED PRESS ENTER/RETURN"; X$ 
CLS:PRINT 

PRINT"AFTER YOU INPUT YOUR MOVE, THE COMPUTER" 
PRINT"WILL OUTPUT YOUR LOCATION (MAYBE)." 
D=A+(15*RND(0)):IF D < 9 THEN 205: REM DISTANCE TO 
TREASURE 

PRINT"INPUT YOUR MOVE"; 

INPUTM 

IFM«-50RM > 5 THEN PRINT'DUMMY!! CAN'T YOU 
REMEMBER THE 

NUMBERS???”:GOTO 220 

B=B+1 

IF ABS (М-А1)> 1 AND ABS (M-A)> 1 THEN 265 

GOSUB 280:GOTO 300:REM DECREASE DISTANCE— 
OUTPUT MESSAGE 

IF A3=9 THEN 890 

PRINT: PRINT"THAT DIDN'T WORK !!” 

GOTO 320 

IF M=0 THEN D=D:GOTO 300 

M1=(M-M) +.5:D=D-M1:RETURN 

IF D <=0 THEN 830 

IF D >0 THEN 780 

REM OBSTACLES 

IF A3 > 1 THEN 380 

PRINT:PRINT“YOU HAVE”;A2;"OBSTACLES TO OVER- 
COME.” 

PRINT"IF YOU DON'T LOCATE THE TREASURE BEFORE 
THE LAST" 

PRINT"OBSTACLE, YOU'LL HAVE TO START OVER." 
PRINT 

PRINT"OBSTACLE #”;АЗ 

ON A3 GOTO 410,440,480,520,550,590,630,670 
PRINT"THEREIS A LARGE SNAKE OVER YOUR HEAD, IF IT 
STRIKES" 

PRINT" YOU—UGH--GOODBYE CHARLIE !!” 
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430 
440 


450 


460 
470 
480 
490 


500 
510 
520 


530 


540 
550 


560 
570 
580 
590 
600 


610 
620 
630 
640 
650 


660 


ATA 
EN 


680 


690 
700 


710 
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GOTO 740 

PRINT“UH—OH . .. GUESS WHAT'S GOT YOU SUR- 
ROUNDED?” 

PRINT"ABOUT”;A+5;"HEADHUNTERS !! GUESS WHO'S 
HEAD THEY'LL” 

PRINT"HAVE IF YOU DON'T GET OUT OF THIS ONE?" 
GOTO 740 

РКІМТ“5ТОР! STOP!” 

PRINT"YOU ARE ABOUT TO STEPINTO SOME QUICK- 
SAND, DON'T STEP FORWARD" 

PRINT"OR YOU'LL NEVER SEE THAT TREASURE !!" 
GOTO 740 

PRINT“NOW GUESS WHAT? ABOUT”; A--3;"LARGE SPID- 
ERS ARE ABOUT TO" 

PRINT"COME DOWN ON YOUR HEAD, A SPECIES THAT 
THRIVES ON EYES I” 

GOTO 740 

PRINT"WOULD YOU BELEIVE? A POOL OF MAN-EATING 
FISH?" 

PRINT"YOU'D BETTER, ‘CAUSE IF YOU STEP INTO THEM" 
PRINT"THEY'LL GREET YOU WITH OPEN MOUTHS !!” 
GOTO 740 

PRINT"OUCH !?" 

PRINT"YOU JUST RAN INTO A SOLID WALL, I MUST'VE 
TURNED" 

PRINT"YOU IN THE WRONG DIRECTION, ON THE LAST 
MOVE." 

GOTO 740 

PRINT"LOOK OUT !!” 

PRINT"RIGHT INTO A WALL OF FIRE. DOESN'T THAT 
MAKE YOUR FINGERS" 

PRINT"TINGLE? DIDN'T YOU FEEL THE HEAT BEFORE 
NOW?” 

GOTO 740 


PRINT VOTTD TACT A? "AUD ТҰТПА T COWVDO CUTS A OT r НЭ VOTT DON'T 
AV ALL MS А чл L ELV DA NI RINGS Å LYNS Laks 


LOCATE THE” 

PRINT"TREASURE AFTER THIS ONE, YOU'LL START OVER 
Im 

PRINT 

PRINT"YOU ARE STANDING IN FRONT OF A PACK OF WILD 
DOGS 1!” 

PRINT"THEY'RE ALL SHOWING THEIR NICE WHITE 
TEETH." 


720 
740 
745 
760 
765 
770 
775 
790 


800 


810 


820 
830 
840 
850 


860 


870 
880 
890 
900 
910 
920 
930 
940 


950 
960 
970 
980 
990 
1000 
1010 


1020 
1030 
1040 


1050 


PRINT"WHITE . . . FROM CHEWING BONES !!” 

REM DELETE ONE OBSTACLE 

A3=A3+1 

GOSUB 770:REM GET AWAY? 

GOTO 210 

A=INT(6*RND(0) +1): A1=A-5 

RETURN 

PRINT"YOU'RE GETTING CLOSER, ONLY”;D;“FEET AND 
YOU'LL HAVE” 

PRINT"THE TREASURE YOU'VE BEEN LOOKING FOR. 
JUST” 

PRINT"WATCH THE OBSTACLES.”;:IF B < 6 THEN 
PRINT“THEY’RE STILL FLOATING AROUND OUT THERE.” 
GOSUB 770:GOTO 210 

PRINT 

PRINTTCONGRATULATIONS!!!" 
PRINT"THAT MUST'VE BEEN YOUR LUCKY STEP. YOU'RE 
STANDING RIGHT" 

PRINT"ON TOP OF THE TREASURE. ABOUT 2 MILLION 
DOLLARS WORTH" 

PRINT"OF GOLD AND SILVER !!!" 

GOTO 960 

PRINT 

PRINT"WELL";:GOSUB 1060 

PRINT"IT LOOKS LIKE”;:GOSUB 1060 

PRINT"YOU'RE NOT GOING TO";: GOSUB 1060 
PRINT“FIND THE TREASURE THIS TIME”;:GOSUB 1060 
PRINT"LOOKS AS THOUGH YOU GOT CLOSE, BUT,”;: 
GOSUB 1060 

PRINT“NOT CLOSE ENOUGH”;:GOSUB 1060 

PRINT 

PRINT“YOU ARE READY TO TRY AGAIN, RIGHT”; 

INPUT A$ 

IF A$ < >“YES” AND A$ < > “NO” THEN 1010 

GOTO 1020 

PRINT"WON'T RESPOND TO THAT ANSWER...... 6 
СОТО 980 

IF A$=“YES” THEN RESTORE:R=2:GOTO 20 

PRINT 

PRINT"CHICKEN!! COULDN'T HANDLE THE OBSTACLES 
әҙ” 

END 
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1060 
1070 


1080 
1090 
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Abe vat gu Ex й 

FOR J=1 TO LEN (A$):PRINT LEFT$(A$,1);:FOR T=1 TO 
25:NEXT Т, 

FOR N=1 TO 600:NEXT 

PRINT: PRINT: RETURN 


Chapter 7 


scrambled Eggs 


Lf Tovet x= 


# 


This is called scrambled eggs, but you'll soon wonder why it wasn't 
entitled scrambled fingers,why? Because with each category and 
each question you'll only have roughly 30 seconds to answer. 
Points are based on different things which will become apparent in 
the program list. 

You must remember one thing: DO NOT BACKSPACE !! If 
you do the computer will interpret it as a letter !! Because of 
questions and answers no sample run is provided. See Fig. 7-1 for 
the flowchart for this program. 


Program Listing 


10 CLS:DIM А%(91) 

20 PRINT:RANDOM 

30 PRINT TAB(15), "SCRAMBLED EGGS” 

40 PRINT 

50 РКІМТ“ТНІ5 IS THE GAME OF SCRAMBLED EGGS.” 
60 PRINT“WHERE YOU'LL SOON SEE THAT A MORE" 
70 PRINT“FITTING TITLE WOULD BE SCRAMBLED" 
80 PRINT“FINGERS. YOU'LL BE GIVEN QUESTIONS" 
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LIST INSTRUCTIONS 
READ DATA LIST 


SELECT 
RANDOM CATEGORY 


START LOOP 
(INKEYS) 


PRINT QUESTIONS 


ТЕР MESSAGE 


YES 


YES TP = TP — QQ 


TP = TP + QQ +20 - 85 


PRINT POINTS 


YES 
YES 


YES 


PLAY AGAIN 


NO 


NO 


PRINT TOTAL 
SCORE 


Fig. 7-1. The flowchart for Scrambled Eggs. 


90 PRINT“SELECTED FROM FOUR CATEGORIES.” 
100 PRINT“THE CATEGORY WILL BE RANDOMLY” 
110 PRINT“SELECTED.” 
120 GOSUB 5000 
130 CLS:PRINT 
140 PRINT“ANSWERS WILL BE ENTERED USING” 
150 PRINT“ONLY THE LETTERED KEYS.” 
160 PRINT"ENTER/RETURN KEY WILL МОТ BE USED." 
170 ;PRINT“YOU’LL HAVE ROUGHLY 30 SECONDS PER" 
180 PRINT“QUESTION. EACH POINT IS WORTH $1.00” 
190 PRINT"AND FIGURED AS FOLLOWS:” 
210 PRINT“EACH LETTER PER ANSWER IS WORTH 1 POINT.” 
220 PRINT“IF YOU ANSWER INCORRECTLY (YOU ONLY” 
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230 
240 
290 
200 


260 
270 


280 
290 
300 
310 
320 
330 
340 
350 
360 


370 


380 


390 
395 
397 


398 


400 
405 
410 
415 
420 
430 
439 
440 
445 
450 
460 
470 
480 
490 
500 
505 
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PRINT“GET ONE CHANCE PER QUESTION), YOU” 
PRINT"WILL BE CHARGED THAT MANY POINTS" 
PRINT"AGAINST THE CORRECT ANSWER IN MEMORY,” 
PRINT“PLUS THE SECONDS YOU TOOK TO ANSWER IT." 


GOSUB 5000: CLS 
PRINT 


PRINT"CORRECT ANSWERS:" 

PRINT"YOU CAN OBTAIN THE HIGHEST POINTS BY" 
PRINT"ANSWERING CORRECTLY WITHIN 10 SECONDS." 
PRINT"EXAMPLE: IF YOUR ANSWERIS CORRECT WITHIN" 
PRINT"10 SECONDS YOU WILL GAIN 20 POINTS(TIME" 
PRINT"REMAINING), AND A POINT FOR EACH LETTER." 
PRINT"OTHERWISE A CORRECT ANSWER WILL GAIN YOU" 
PRINT"A POINT FOR EACH LETTER IN THE ANSWER." 
PRINT“IF YOUR ALLOTED TIME EXPIRES AND YOU 
HAVEN'T" 

PRINT"ANSWERED, POINTS LOST WILL BE 30 (FOR SEC- 
ONDS),” 

PRINT“AND A POINT FOR EACH LETTER IN THE COR- 


RECT” 
PRINT“ANSWER IN MEMORY.” 


GOSUB 5000:CLS: PRINT 

PRINT“REMEMBER, ENTER THE ANSWER USING ONLY 
THE” 

PRINT“LETTER KEYS. THEN PRESS THE ASTERISK (*) TO 
STOP” 

PRINT“THE CLOCK AND COMPARE YOUR ANSWER.” 
PRINT"YOULL SOON CATCH ON. .... n 

GOSUB 5000: CLS 

FOR Z=1 TO 4:M(Z)=Z:PT(Z):NEXT 
P=30:T=350: Ez10: TPZ0: R$—'?": D$" $":F$—".00" 
I=INT(S*RND(0)+1) 

IF M(1)=0 AND M(2)=0 AND M(3)=0 AND M(4)=0 THEN 1200 
IF M()=0 THEN 430 

ON I GOTO 450.460.470.480 
С%--“АМІМА1,5”2%--“268.00”:М--1:6ОТО 490 
C$="MIXED":Z$="$265.00":M=2:GOTO 490 
C$=“INSECTS”:Z$="$254.00":M=3:GOTO 490 
C$=“DICTIONARY”:Z$="$278.00"; M=4 

IF R > 0 THEN 790: REM READ DATA LIST IF NOT DONE 
FOR A=1 TO 40:READ A$(A): NEXT 

DATA ELEPHANT, GIRAFFE, CHEETAH, HIPPOPOTAMUS, 
RHINOCEROS, DOG, TIGER, COW, GORILLA, MACACO 


515 
525 
535 
580 
590 


600 


610 
620 


630 


640 
650 


660 
670 


680 
690 


700 


710 


720 


730 
740 


750 
760 
770 
780 


790 
795 


DATA IRRATIONAL , HOAX, ENDURE, DIET, MECHANISM, 
CALIFORNIA, TRANSISTOR, GAMES, TUBE, APPLE 
DATA SPIDER, FLEA, FLY, ANT, TICK, LOCUST, CEN- 
TIPEDE, LADYBUG, ROACH, TERMITE 

DATA IMPOSTER, COEFFICIENT, BETRAY, STORAGE, VO- 
CATION, TRINAL, SUPPOSE, POSTSCRIPT, MEASURE, AF- 
FIDAVIT 

REM READ CATEGORY QUESTIONS 

FOR Q=51 ТО 90:READ А%(0):МЕХТ 

DATA LARGEST LAND ANIMAL, TALLEST OF ALL QUAD- 
RUPEDS 

DATA HUNTING LEOPARD OF INDIA, THE RIVER HORSE 
DATA ONE OR TWO HORNS ON THE SNOUT, A DOMESTI- 
CATED ANIMAL 

DATA A LARGE FIERCE RAPACIOUS QUADRUPED, GIVES 
MILK 

DATA LARGEST APE KNOWN, RINGTAILED LEMUR 
DATA ABSURD, PRACTICAL JOKE, PUT UP WITH, SPECIAL 
REFERENCE TO FOOD 

DATA PARTS OF A MACHINE, WESTERN STATE 

DATA A SMALL COMPONENT REPLACING THE TUBE, FUN 
- FROLIC 

DATA A PIPE, A RED TREE FRUIT 

DATA HAS EIGHT LEGS, BLOOD-SUCKING PARASITIC, A 
TWO-WINGED INSECT 

DATA INVADES PICNICS, ANOTHER BLOOD-SUCKING 
PARASITIC 

DATA DESTRUCTIVE WINGED INSECT, SUPPOSED TO 
HAVE ONE HUNDRED LEGS 

DATA MARKED WITH BLACK SPOTS, PART OF THE CARP 
FAMILY 

DATA THE WHITE ANT 


DATA AN ASSUMED CHARACTER, COOPERATING WITH 
ANOTHER 

DATA DECEIVE,SPACE FOR GOODS, OCCUPATION, PER- 
TAINING TO THREE 

DATA TO IMAGINE, A PARAGRAPH ADDED TO THE END OF 
A LETTER 


DATA VOLUME OR EXTENT OF ANYTHING COMPARED 
DATA SWORN STATEMENT IN WRITING 

REM PRINT QUESTION - START LOOP 

PRINT“DON’T TYPE TOO FAST AND DON'T BACKSPACE." 
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796 
797 
798 
800 
805 
810 
820 
830 
835 
840 
850 
870 
875 
880 
885 


890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
1020 


1050 
1060 
1070 
1080 
1090 
1100 
1200 
1210 
1220 
1230 
1240 
1245 
1250 
1255 
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PRINT 
PRINT“CATEGORY: ”;C$ 
PRINT“HIGHEST AMOUNT TO WIN, THIS CATEGORY: ”;Z$ 
PRINT 
РКІМТЧЕ READY ?”:GOSUB 5000:CLS:PRINT 
ON M GOTO 820, 1050, 1070, 1090 
=51:$=1:A=1:Q$=" ” 
PRINT 
PRINT A$(Q);R$ 
X$=INKEY$:IF X$="*" THEN SS=INT(S/10):GOTO 890 
N$=“ ” 
L$=L$+X$:Q$=MID$(L$, 1, 1) 
N$=N$+X$:PRINT N$; 
S=S+1:IF S<>T THEN 840 
QQ=LEN(AS(A)): GOSUB 4100:GOSUB 4200:GOTO 940:КЕМ 
OUT OF TIME 
Q$-L$:QQ-LEN(A$(A): CQ=LEN(Q$) 
REM COMPARE STRINGS 
IF Q$=A$(A) THEN 930 
GOSUB 4050: GOSUB 4200: GOTO 940: КЕМ INCORRECT 
GOSUB 4000: GOSUB 4200:REM CORRECT 
S=1:A=A+1:Q=Q+1 
IF M=1 AND Q <> 61 THEN 830 
IF M=2 AND Q <> 71 THEN 830 
IF M=3 AND Q <> 81 THEN 830 
IF M=4 AND Q <> 91 THEN 830 
PT(D=TP:M()=0:R=1:GOTO 420:REM ANOTHER CATE- 
GORY 
Q=61:5=1:A=11:Q$=" ":L$=" ” 


GOTO 830 
Q=71:5=1:A=21:Q0$=" *:L§=" ” 
GOTO 830 
Q=81:S=1:A=31:Q$=“ 1L5S="" 
GOTO 830 


GOSUB 5000: CLS:PRINT 

PRINT“OUT OF 40 QUESTIONS,” 

РКІМТ“ТНЕ TOTAL AMOUNT OF MONEY YOU" 
PRINT'ACCUMULATED WAS: ” D$; 

FOR I=1 TO 4 

PP=PP+PT(D:NEXT:PRINT PP;F$ 

PRINT 

HP=1065 


1260 PRINT“HIGHEST POSSIBLE AMOUNT WAS: ”;D$;HP;F$ 

1270 PRINT 

1280 PRINT“WOULD YOU FEEL LIKE THINKING, SOME MORE”; 

1290 INPUT IN$ 

1300 IF IN$ <>“NO” THEN 1320 

1310 GOTO 1330 

1320 RESTORE:R=0:PP=0:GOTO 410 

1330 PRINT 

1340 PRINT“SOLONG..... " 

1350 PRINT"END OF GAME." 

1360 END 

4000 PRINT:PRINT 

4010 PRINT“CORRECT !!” 

4020 IF SS < 10 THEN ТР=ТО+99+20 

4025 GOTO 4040 

4030 TP=TP+QQ 

4040 L$="":Q$=" ":RETURN 

4050 PRINT:PRINT 

4060 PRINT"INCORRECT RESPONSE !!" 

4070 TP-TP- 99-55 

4080 L$="":Q$=""”:RETURN 

4100 PRINT:PRINT 

4105 SS=30 

4120 TP-TP- QQ- SS 

4125 IF TP=0 THEN TP=+QQ+SS 

4130 L$-z""Qgzc"" 

4140 RETURN 

4200 REM AMOUNT ACCRUED 

4210 IF TP ^0 THEN PRINT'AMOUNT ACCRUED:' D$; TP 
:F$: СОТО 4230 

4220 PRINT"AMOUNT LOST: ”;D$;TP;F$ 

4230 RETURN 

5000 PRINT"PRESS A KEY..... " 

5010 X$=INKEY$:IF X$=“ " THEN 5010 

5020 RETURN 
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Renumber 


This is the game of renumber, where you will have to figure a 
sequence of numbers in the computer’s memory. The numbers will 
be from 1 to 10 but won't be in their correct order. You will have an 
allotted amount of rounds to complete the sequence of numbers in 
its correct order. The first five rounds should be easy, the compu- 
ter will tell you which numbers are correct and if they are in the 
right spaces; after that you are on your own. 


Sample Run 


THIS IS NOT A PROGRAM TO RENUMBER 

OTHER PROGRAM LINES, BUT 

A NUMBER GAME. THE COMPUTER 

WILL HAVE IN ITS MEMORY A SET OF 

NUMBERS FROM 1 THROUGH 10. THESE 

NUMBERS WILL BE PRINTED, BUT NOT IN 

THEIR CORRECT ORDER; ORDERING THEM IS YOUR 
JOB. PRESS ENTER/RETURN? 


212 


AN EXAMPLE MIGHT BE: 

10435712698 (COMPUTER LIST). 

YOU MUST RENUMBER THE LIST TO MATCH 
THE COMPUTER’S CORRECT LIST. THE 

ANSWER MIGHT BE: 

10347218965 (YOUR LIST). 

AND YOU MUST DO IT IN AN AMOUNT OF 
MOVES THE COMPUTER ALLOWS YOU (RANDOM 
UP TO 30—NOT LESS THAN 15). 

PRESS ENTER/RETURN TO RECEIVE THE 

FIRST LIST IF YOU ARE READY? 

YOU'LL HAVE 30 ROUNDS TO ENTER 

THE CORRECT ORDER OF NUMBERS. 

MORE THAN ENOUGH..... 

HERE IS THE COMPUTER'S RANDOM LIST: 
21013857964 

(NOTE: THE RANDOM LIST IS ONLY TO SHOW YOU WHAT 
KIND OF ARRANGEMENT THE NUMBERS MIGHT BE IN). 
NOW IT’S YOUR TURN, ENTER THE NUMBERS 
IN WHICH YOU THINK THE CORRECT ORDER 
MIGHT BE. 

PRESS ENTER/RETURN? 

ENTER YOUR NUMBER 1 CHOICE? 1 

ENTER YOUR NUMBER 2 CHOICE? 9 

ENTER YOUR NUMBER 3 CHOICE? 8 

ENTER YOUR NUMBER 4 CHOICE? 5 

ENTER YOUR NUMBER 5 CHOICE? 3 

ENTER YOUR NUMBER 6 CHOICE? 2 

ENTER YOUR NUMBER 7 CHOICE? 7 

ENTER YOUR NUMBER 8 CHOICE? 4 

ENTER YOUR NUMBER 9 CHOICE?10 

ENTER YOUR NUMBER 10 CHOICE? 6 
COMPUTER'S RANDOM LIST: 

21013857964 

YOUR LIST: 

19853274106 

THE ‘HELP’ LIST NOTES THAT YOU ARE 9 NUMBERS OFF. 
0000000010 

THE NUMBER (1) INDICATES YOUR CORRECT NUMBER(S). 
THIS WILL BE YOUR NUMBER 2 ATTEMPT. 
PRESS ENTER/RETURN? 

ENTER YOUR NUMBER 1 CHOICE? 9 
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ENTER YOUR NUMBER 2 CHOICE? 
ENTER YOUR NUMBER 3 CHOICE? 
ENTER YOUR NUMBER 4 CHOICE? 
ENTER YOUR NUMBER 5 CHOICE? 
ENTER YOUR NUMBER 6 CHOICE? 
ENTER YOUR NUMBER 7 CHOICE? 
ENTER YOUR NUMBER 8 CHOICE? 
ENTER YOUR NUMBER 9 CHOICE? 10 
ENTER YOUR NUMBER 10 CHOICE? 6 
YOUR LIST: 
95712483106 
THE ‘HELP’ LIST NOTES THAT YOU ARE 6 NUMBERS OFF. 
1010001010 
THE NUMBER (1) INDICATES YOUR CORRECT NUMBER(S). 
THIS WILL BE YOUR NUMBER 3 ATTEMPT. 
PRESS ENTER/RETURN? 
ENTER YOUR NUMBER 1 CHOICE? 
ENTER YOUR NUMBER 2 CHOICE? 
ENTER YOUR NUMBER 3 CHOICE? 
ENTER YOUR NUMBER 4 CHOICE? 
ENTER YOUR NUMBER 5 CHOICE? 
ENTER YOUR NUMBER 6 CHOICE? 
ENTER YOUR NUMBER 7 CHOICE? 
ENTER YOUR NUMBER 8 CHOICE? 2 
ENTER YOUR NUMBER 9 CHOICE? 10 
ENTER YOUR NUMBER 10 CHOICE? 4 
YOUR LIST: 
91736582104 
THE ‘HELP’ LIST NOTES THAT YOU ARE 6 NUMBERS OFF. 
1010001010 
THE NUMBER (1) INDICATES YOUR CORRECT NUMBER(S). 
THIS WILL BE YOUR NUMBER 4 ATTEMPT. 
PRESS ENTER/RETURN? 
STOP 

As you can see from only 3 rounds you could become quite 
involved with the numbers. The ‘help’ list is only printed 5 times. It 
will (after 5 rounds) tell you how many you're off, but not which 
ones. See Fig. 7-2 for the flowchart for this program. 
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Program Listing 


100 CLS:DIM А(11) 
110 PRINT:PRINT 
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120 
130 
140 
150 
160 
170 
180 
190 


PRINT TAB(15),"RENUMBER" 

PRINT 

PRINT"THIS IS МОТ A PROGRAM TO RENUMBER" 
РКІМТ“ОТНЕК PROGRAM LINES, BUT" 

PRINT"A NUMBER GAME. THE COMPUTER" 
PRINT"WILL HAVE IN ITS MEMORY A SET OF" 
PRINT"NUMBERS FROM 1 THROUGH 10. THESE" 
PRINT"NUMBERS WILL BE PRINTED, BUT NOT IN" 


PRINT 
INSTRUCTIONS 


SET 
VARIABLES 


SET 
COMPUTER LIST 


SET 
TOTAL GUESS 
ROUNDS 


INPUT 10 
NUMBERS 


YES n; 


NO 
YES 


NO 


PRINT 
COMPUTER LIST 


COMPARE LIST 


YES i-i 
NO 


PRINT 
HELP LIST 


- NO 
Y 


YES 


WIN 
MESSAGE 


LOSE 
MESSAGE 


Fig. 7-2. The flowchart for Renumber. 
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200 


210 
212 
215 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


330 
340 
350 


әсе 


300 
370 
380 
390 
410 
420 
430 
435 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 


590 
600 
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PRINT"THEIR CORRECT ORDER; ORDERING THEM IS 


YOUR" 
PRINT" JOB. PRESS ENTER/RETURN"; 


INPUT R$:CLS:PRINT: PRINT 

PRINT“AN EXAMPLE MIGHT ВЕ:” 

PRINT“10 4 35712698 (COMPUTER LIST)." 
PRINT“YOU MUST RENUMBER THE LIST TO MATCH” 
PRINT“THE COMPUTER’S CORRECT LIST. THE” 
PRINT“ANSWER MIGHT BE:” 

PRINT“10 4 3 7218965 (YOUR LIST).” 

PRINT"AND YOU MUST DO IT IN AN AMOUNT OF" 
PRINT"MOVES THE COMPUTER ALLOWS YOU (RANDOM" 
PRINT“UP TO 30—NOT LESS THAN 15).” 
PRINT"PRESS ENTER/RETURN TO RECEIVE THE” 
PRINT“FIRST LIST IF YOU ARE READY”; 


INPUT R$ 
REM SET VARIABLES 


FOR I=1 TO 10:Z(D=I:NEXT 

REM SET COMPUTER LIST 

I=1:J=0:RR=0: WS=INTZ*RND(0) +1) 
N=INT(10*RND(0)+1):IF Z(N)=0 THEN 380 
ММ()--М:А()--ММ(1-1) 

Z(N)=0 

I=I+1 

IF I< > 11 THEN 380 

IF Ad-10)=0 THEN А(1-10)-ММ(І-1) 

REM SET COMPUTER PRINTING LIST 

FOR I=1 TO 10:C(D=L:NEXT 

I=1 

CN-INT(O*RND(0)-HD:IF C(CN)=0 THEN 470 
NC(D=CN 

C(CN)=0 

I=I+1 

IF I< >11 THEN 470 

KEM SET AMOUNT OF GUESS KUUNDS 
R=INT(30*RND(O)+)) 

IF R< 15 THEN 530 

CLS: PRINT 

PRINT“YOU HAVE”;R;“ROUNDS TO ENTER” 
PRINT“THE CORRECT ORDER OF NUMBERS.” 
IF R>=20 THEN PRINT“MORE THAN ENOUGH . .... ç 


PRINT 
PRINT“HERE IS THE COMPUTER’S RANDOM LIST: ” 


605 
610 
615 
620 
630 
635 


636 


640 
650 
660 
670 
673 
675 
680 
690 
700 


710 
720 
725 
730 
735 


740 
750 
755 
760 
765 
770 
780 
790 
800 
810 
820 
830 
840 
845 
850 
860 


REM PRINT COMPUTER PRINTING LIST 

FOR I=1 TO 10 

IF WS=2 THEN PRINT NN(D;:GOTO 630 

PRINT МС); 

NEXT:PRINT 

PRINT“(NOTE: THIS RANDOM LIST IS ONLY TO SHOW YOU 
WHAT” 

PRINT“KIND OF ARRANGEMENT THE NUMBERS MIGHT 
BE IN).” 

PRINT 

PRINT“NOW IT’S YOUR TURN, ENTER THE NUMBERS” 
PRINT“IN WHICH YOU THINK THE CORRECT ORDER” 
PRINT“MIGHT BE.” 

PRINT“PRESS ENTER/RETURN";:INPUT R$:CLS:PRINT 
FOR I=1 ТО 10:XX(D=I:NEXT 

I=1:PRINT 

PRINT"ENTER YOUR NUMBER”; [;"CHOICE”; 

INPUT X(D:IF XX(X(D)=0 THEN PRINT“TRY AGAIN— 
YOU'VE 

USED THAT NUMBER. ”:GOTO 690 

XX(X(D))=0:1=1+1 

IF I < > 11 THEN 690 

FOR LL=1 TO 1000:NEXT: CLS 

PRINT 

IF RR>0 THEN 770: REM SKIP COMPUTER LIST FOR ROUND 
> 1 

PRINT"COMPUTER'S RANDOM LIST:” 

FOR I=1 TO 10 

IF WS=2 THEN PRINT NN(D;: GOTO 765 

PRINT NC(D; 

NEXT 

PRINT 

PRINT"YOUR LIST:" 

FOR I=1 TO 10 

PRINT X(D;: NEXT 

REM COMPARE LISTS 

FOR I=1 TO 10 

IF X(D < > A(D THEN J=J+1:()=0:GOTO 850 
J=J:JD=1:NEXT:IF J=0 THEN 1050 

GOTO 860 

NEXT 

PRINT 
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870 PRINT“THE ‘HELP’ LIST NOTES THAT YOU ARE”;J;"NUM- 
BERS OFF.” 
875 IF RR >=5 THEN 920 
880 FOR I=1 TO 10 
890 PRINT J(D; 
900 NEXT:PRINT 
910 PRINT“THE NUMBER (1) INDICATES YOUR CORRECT 
NUMBER(S).” 
915 IF RR=4 THEN PRINT“THIS IS THE LAST ‘HELP’ LISTING OF 
NUMBERS.” 
920 RR=RR+1 
930 IF RR < > R THEN 950 
940 FOR LL=1 TO 1200:NEXT:GOTO 1300:REM CONT/END 
950 PRINT 
960 PRINT“THIS WILL BE YOUR NUMBER”;RR+1;“ATTEMPT.” 
970 РКІМТ“РКЕ55 ENTER/RETURN”; 
980 INPUT R$ 
990 CLS 
1000 J=0:GOTO 675 
1050 FOR U=1 TO 1000: NEXT: CLS: PRINT 
1060 PRINT"VERY GOOD !!!” 
1070 PRINT"AND YOU'VE DONE IT WITHIN THE COMPUTER'S” 
1080 PRINT"ALLOTTED AMOUNT OF ROUNDS.” 
1090 PRINT 
1100 PRINT"LET'S BACK UP NOW AND TRY SOMEMORE,” 
1110 PRINT“RENUMBER, О.К.” 
1120 INPUT R$ 
1130 IF R$=“YES” THEN 1150 
1140 GOTO 1160 
1150 GOTO 320:REM PLAY AGAIN 
1160 PRINT 
1170 PRINT"TOO BAD, DID THE NUMBERS GIVE YOU" 
1180 РКІМТ“5ОМЕ SORT OF HEADACHE ???" 
1190 FOR LL=1 TO 5000:NEXT:CLS 


1300 CLS:PRINT 

1310 PRINT"THAT WAS YOUR LAST AND FINAL ATTEMPT !!” 
1320 PRINT"AND TO SAY THE LEAST YOU DIDNT GET” 

1330 РКІМТ“ТНЕ CORRECT SEQUENCE OF NUMBERS.” 

1340 PRINT“MAYBE YOU SHOULD TRY AND UNSCRAMBLE” 
1350 PRINT'SOMETHING LESS COMPLICATED, LIKE” 

1360 PRINT“YOUR FINGERS, OR..... ü 

1370 GOTO 1100 
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Kat & Mouse 


Using only ‘S’ key, you will attempt to slap a mouse. The computer 
will move you along a 20 foot wall, if you think you are at the mouse 
house - press the ‘S’ key and see what happens! 


Sample Run 


ARE INSTRUCTIONS REQUIRED? YES 

THIS IS THE GAME OF KAT & MOUSE. IN WHICH YOU (THE KAT) 
WILL TRY THAT AGE OLD PROBLEM OF CATCHING A MOUSE. 
THE MOUSE HOUSE WILL BE LOCATED ALONG ONE LONG 

20 FOOT WALL. THE COMPUTER WILL MOVE YOU (THE KAT) 
ALONG THIS WALL, ANYTIME YOU’RE READY TO SLAP, JUST 
PRESS THE ‘S’ KEY. SO REMEMBER ALL YOU HAVE TO DO 

IS SLAP YOUR PAW AT THE RIGHT MOUSE HOUSE !! 

THE COMPUTER WILL START YOU MOVING ALONG THE WALL. 
IF AT ANYTIME YOU THINK YOU’RE AT THE MOUSE HOUSE 
AND READY TO SLAP - PRESS THE ‘S’ KEY. 

YOU’RE MOVING..... 

(press s) 

COME ОМ BUSTER YOU JUST PASSED IT UP ONLY 2 

FEET BACK; WATCH YOUR PAW !! 

YOUR’RE MOVING..... 

(key not pressed in for a period of time) 

ALL RIGHT KAT, YOU’VE HAD PLENTY OF TIME TO SLAP 


219 


THAT MOUSE, BUT YOU’VE DONE NOTHING BUT PACE FROM 
ONE 

END TO THE OTHER... GET YOURSELF IN GEAR, THIS IS 
ATTEMPT NUMBER 2 

YOU’RE MOVING..... 

(press s) 

COME ‘ ON BUSTER YOU JUST PASSED IT UP ONLY 8 

FEET BACK; WATCH YOUR PAW !! 

YOU'RE MOVING..... 

(press s) 

THAT WASN'T TOO BAD BUSTER, ANOTHER 8 FEET AND 
YOU WOULD'VE HAD THAT MOUSE... OR MAYBE ITS TAIL !! 
YOU'RE MOVING..... 

(Press S) 

THAT WASN'T TOO BAD BUSTER, 

ANOTHER 1 FEET AND YOU 


WOULD'VE HAD THAT 
MOUSE... OR MAYBE 
ITS TAIL !! 


THIS IS GONNA BE YOUR 5TH SLAP KAT. YOU BETTER 

START THINKING. DID I FORGET TO TELL YOU THE MOUSE 
HOUSE 

MOVES EVERYTIME YOU SLAP? WELL, YOU KNOW IT NOW ! 
YOU'RE MOVING..... 

(press s) 

OUCH! 

POOR MOUSE, YOU JUST SLAPPED IT THROUGH THE WOOD- 
WORK ! 

BUT IT DID TAKE YOU 6 ATTEMPTS TO GET IT. 

WELL BUSTER, WOULD YOU LIKE TO TRY A COMMERCIAL 
MOUSETRAP 

OR JUST TRY THIS GAME AGAIN? NO 

WENT TO THE MOUSE TRAP, HUH? 

CHICKEN !! 


You'll notice from the sample run that it might be somewhat 
difficult to slap the mouse, after several tries you'll become a 
regular pro. See Fig. 7-3 for the flowchart for this program. 


Program Listing 


10 CLS:RANDOM 
20 PRINT 
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NSTRUCTIONS 
YES 


PRINT 
INSTRUCTIONS 


NO 


SET COUNTERS 


INPUT 
KATS' MOVE 


Kew YES 
NO SPLATT !! 


Fig. 7-3. The flowchart for Kat & Mouse. 


29 
30 
35 
40 
30 


60 
70 
80 


PLAY ҮЕ 

mu 
NO 

PRINT TAB(20);“K AT & MOUSE” 

PRINT 


PRINT“ARE INSTRUCTIONS REQUIRED”; 

INPUT A$ 

IF A$ < >“ҮЕ5” AND A$ < >“NO” THEN PRINT"DUMMY" !! 
TRY YES 

OR NO”:GOTO 30 

IF Аф-“МО” THEN 170 

CLS: PRINT 

PRINT“THIS IS THE GAME OF KAT & MOUSE. IN WHICH YOU 
(THE KAT)” 
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90 


100 
110 


120 


130 


140 
160 
165 


170 
180 
190 
200 
205 
219 
220 
230 
235 


240 


250 


260 
270 
275 


280 
290 
300 
305 
310 
320 
330 
335 
340 
350 
360 
370 
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PRINT“WILL TRY THAT АСЕ OLD PROBLEM ОЕ CATCHING 
A MOUSE.” 

PRINT“THE MOUSE HOUSE WILL BE LOCATED ONE LONG” 
PRINT “ 20 FOOT WALL. THE COMPUTER WILL MOVE 
YOU (THE KAT) 

PRINT"ALONG THIS WALL, ANYTIME YOU'RE READY ТО 
SLAP, JUST” 

PRINT'PRESS THE 5” KEY. SO REMEMBER ALL YOU HAVE 
TO DO” 

PRINT“IS SLAP YOUR PAW AT THE RIGHT MOUSE HOUSE !!" 
FOR U=1 TO 8500: NEXT: CLS: PRINT 

REM CHANGE LOOP IS USER NEEDS LONGER/SHORTER 
INSTRUCTION TIME 

REM SET THE ROUND COUNTER 

R=0:RR=10:S=0:Q=0 

REM SET THE MOUSE HOUSE 

MH=INT(20*RND(0)+1) 

IF R > 0 GOTO 270 

REM THE MOUSE HOUSE WILL MOVE 

REM WITH EACH KAT'S SLAP 

REM NOW SET UP THE KAT 

PRINT 

PRINT"THE COMPUTER WILL START YOU MOVING ALONG 
THE WALL” 

PRINT“IF AT ANYTIME YOU THINK YOU'RE AT THE MOUSE 
HOUSE” 

PRINT"AND READY TO SLAP—PRESS THE 'S' KEY.” 

FOR I=1 TO 3000: NEXT 

PRINT: PRINT"YOU'RE MOVING..... ”R=R+1: REM ROUND 
+1 

FOR M=0 TO MH 

FOR J=0 TO 20 

FOR I=1 TO 5 

T=R 

S$=INKEYS 

FI S$=“S” THEN 340 

NEXT LJ,M 

GOTO 370 

IF J=MH THEN 430 

IF J < MH THEN 510 

IF J > MH THEN 610 

PRINT 


375 


380 


390 


400 
410 
415 
420 
430 
440 
450 
460 
470 


480 
490 
495 
500 
510 
520 
530 
540 
045 


550 
555 
560 
565 
570 
575 
580 


590 
600 
610 
620 
630 
635 


640 


PRINT“ALL RIGHT KAT, YOU'VE HAD PLENTY OF TIME TO 
SLAP” 

PRINT“THAT MOUSE, BUT YOU'VE DONE NOTHING BUT 
PACE FROM ONE” 

PRINT“END TO THE OTHER... GET YOURSELF IN GEAR, 
THIS IS” 

PRINT“ATTEMPT NUMBER”;R 

IF T=5 GOSUB 750 

REM CONTINUE IF R < > RR 

IF R < > RR GOTO 200 

REM MOUSE GOT SLAPPED 

CLS 

PRINT 

PRINT“ OU CH!” 

PRINT“POOR MOUSE, YOU JUST SLAPPED IT THROUGH 
THE WOODWORK !!” 

PRINT"BUT IT DID TAKE YOU”;R;“ATTEMPTS TO GET IT.” 
IF R < 3 THEN PRINT“THAT’S NOT BAD AT ALL.” 

REM STOP/CONT LOOP 

GOTO 790 

REM SLAP TOO SHORT 

IF (MH-]) < 10 THEN 540 

IF (MH-J) > 10 THEN 570 

PRINT 

PRINT“THAT WASN'T TOO BAD BUSTER, ANOTHER”; (MH- 
J);“FEET AND” 

PRINT"YOU WOULD'VE HAD THAT MOUSE... .”;:Q=Q+1 
IF Q < 3 THEN PRINT“OR MAYBE ITS TAIL !!” 

PRINT 

GOTO 410 

PRINT 

PRINT"THAT'S INEXCUSEABLE !!”;(MH-J); "FEET 1!” 
PRINT“SURELY A KAT OF YOUR DISPOSITION САМ AND 
SHOULD DO” 

PRINT“BETTER THAN THAT.” 

GOTO 410 

IF J-MH) < 10 THEN 630 

IF (J-MH) > 10 THEN 660 

PRINT:REM PASSED IT UP STATEMENTS 
PRINT"COME'ON BUSTER, YOU JUST PASSED IT UP, 
ONLY”; J-MH) 

PRINT“FEET BACK; WATCH YOUR PAW !!” 
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650 
660 
665 


670 


680 
690 
700 
705 


710 
720 


730 
740 
745 
750 
755 


760 
770 


780 
785 
790 
800 
810 


820 
830 
840 
850 
860 
870 
880 
890 
900 
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GOTO 410 

PRINT 

PRINT"PASSED IT UP THAT TIME BY”;(J-MH);"FEET, I 
HAVE” 

PRINT"A FEELING THAT MOUSE IS GONNA HAVE KATS 
PAW FUR" 

PRINT“SUPPA TONIGHT..... » 

СОТО 410 

PRINT 

PRINT"THAT'S ІТ BUSTER”;R;"SLAPS AND YOU DIDN'T 
EVEN GET” 

PRINT"THE TAIL OF THAT MOUSE. MAYBE YOU SHOULD 
CONSIDER” 

PRINT“INVESTING IN A COMMERCIAL MOUSE TRAP, HOW 
ABOUT A” 

PRINT“ONE OWNER SHOTGUN ??” 

REM STOP/CONT LOOP 

GOTO 790 

PRINT 

PRINT"THIS IS GONNA ВЕ YOUR”;T;"TH SLAP KAT, YOU 
BETTER” 

PRINT“START THINKING. DID I FORGET TO TELL YOU THE 
MOUSE HOUSE” 

PRINT“MOVES EVERYTIME YOU SLAP ? WELL, YOU KNOW 
IT NOW!” 

FOR I=1 TO 2000:NEXT 

T=0:RETURN 

REM STOP/CONT 

PRINT 

PRINT“WELL BUSTER, WOULD YOU LIKE TO TRY A COM- 
MERCIAL MOUSE TRAP” 

PRINT“OR JUST TRY THIS GAME AGAIN”; 

INPUT A$ 

IF A$="YES” THEN 10 

PRINT 

PRINT 

PRINT“WENT TO THE MOUSE TRAP, HUH ?” 

PRINT 

PRINT“CHICKEN !!” 

END 


Chapter 8 


These last games (PLAY THE NUMBERS, HIGHER/LOWER, 
MAZE AND CHANNEL) are designed specifically for the TRS- 
80™ COMPUTER SYSTEM. Because of the graphics used, these 
programs will not run on a PET® or APPLE computer. 


Play The Numbers 


(«6 


«4 


This is a numbers game that you must score 500 points (or better) 
to win. If you decide to play by yourself the computer will ask if (it) 
can play also; if you input yes, you'll have to give the computer a 
name, but the computer will place (its) own bets. 

If you bet 20 and only draw 10, you will lose the difference (10 
points). If, on the other hand, you bet 20 and drawn 20 you will 
receive 40 points. The closer you bet to what you think the random 
number will be, the more points you'll make. If you draw a JOKER, 
you will lose all points placed on that bet. The first one to score 500 


points wins the game. See Fig. 8-1 for the flowchart to this pro- 
gram. 


Program Listing 


5 CLS: PRINT"THIS IS ANOTHER NUMBERS GAME, IN WHICH 
YOU" 


6 PRINT"MUST SCORE 500 (OR BETTER) POINTS BEFORE 
YOUR OPPONENT" 


7 PRINT"DOES. THERE WILL BE 5 RANDOM NUMBERS 
DRAWN FOR EACH" 
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8 PRINT“PLAYER, THESE NUMBERS WILL THEN BE ADDED 
TOGETHER. IF” 
9 PRINT“YOUR BET DOES NOT EXCEED THIS NUMBER, YOU 


WILL GAIN BY” 
PRINT 
INSTRUCTIONS 


INPUT NUMBER 
OF PLAYERS 


шысы», 


YES 


GIVE COMPUTER 
NAME 


INPUT NAMES 
Fig. 8-1. The flowchart for Play | 
the Numbers. SET UP CARDS 
PRINT POSITIONS 
SET COUNTERS 


INPUT BETS 
UPDATE 
PRINT SCORES 
NO 
CHICKEN MESSAGE 


N 


27 


10 


11 


PRINT"THAT MANY POINTS(PLUS WHAT YOU'VE BET). F 
YOUR NUMBER” 

PRINT"DOES EXCEED THAT RANDOM NUMBER AMOUNT, 
YOU WILL LOSE ALL” 

PRINT“THE DIFFERENCE. IF YOU DRAW A JOKER, YOU 
WILL LOSE ALL” 

PRINT“THAT YOU'VE BET ON THAT ROUND. YOUR BET 
CAN BE ANYWHERE” 

PRINT“BETWEEN 1 AND 50, AND UP TO 3 PEOPLE CAN 
PLAY.” 

PRINT“REMEMBER, IF YOU BET 20 AND DRAW 30 (WITH- 
OUT A JOKER)” 

PRINT"YOU WILL GAIN 50 POINTS." :INPUT PRESS EN- 
ТЕК”Х:СІ,5 

PRINT“IF YOU'RE PLAYING BY YOURSELF, THE COMPUTER 
WILL ASK” 

PRINT“IF (IT) CAN PLAY TOO. IF YOU CHOOSE YES, YOU’LL 
HAVE” 

РКІМТ“ТО GIVE GT) A NAME.” :INPUT "PRESS ЕМТЕК” А 
RANDOM 

CLS:PRINT: INPUT“NUMBER OF PLAYERS”; P:IF P< LOR P > 
3 THEN 30: 

ELSE IF P=1 THEN 3L: ELSE 40 

PRINT"WELL THERE'S ONLY ONE OF YOU, SO CAN I” 
PRINT“PLAY AGAINST YOU. I WON'T CHEAT !!!” 

INPUT D$ 

IF D$=“YES” THEN P=2 ELSE P=1:PRINT:PRINT“CHICKEN 
1!” :GOTO 40 

PRINT"YOU HAVE TO GIVE ME A NAME, BUTTLL MAKE MY 
OWN BETS.” 

PRINT INPUT”; P; "PLAYERS FIRST NAMES":IF P=3:INPUT 
A$ 

IF P > = 2: INPUT B$ 

INPUT C$ 

GOSUB 390 

A=258:AB=48:A1=(A+AB):Z3=129:N=11 

CLS:GOSUB 80:GOSUB 350:GOTO 130 

FOR C=1 TO 5:FOR B=1 TO 3 STEP 4-P 

K=(C— 1)*16:J=K+14: Y=(B— 1)*12+9:Н=Ү+9 

FOR Z=K TO J:SET(K, Y):SET(K,H): NEXT Z:K=J—14 

FOR X=Y TO H:SET(K, Y: SETQ, Ү): NEXT X 

NEXT B,C:RETURN 


130 
150 
160 


170 
180 
190 
200 
210 


220 
230 
240 
250 
260 


270 
280 
290 
300 
310 
350 
360 
370 
380 
390 


400 


405 
406 
407 
408 
410 


420 
430 
440 
450 


460 


FOR I=1 TO 5 

D=RND(N) 

IF D=11 THEN D=1000:IF D=1000 PRINT 9 Al, “JOK- 
ER”;:A(0)=0:GOTO 180 

PRINT GA, D;:A(0)=D+A(0):A=A+8: NEXT I 

IF P > = 2 THEN 190 ELSE 280 

A2=770: A3=(A2+AB) 

FOR I=1 TO 5:EZRND(N) 

IF E=11 THEN E=1000:IF E=1000 PRINT “АЗ, 
“JOKER”;:A(1)=0:GOTO 230 

PRINT € A2, E; A()=E+A(1): А2=А2+8: NEXT I 

IF P=3 THEN 240 ELSE 280 

A4=514: A5=(A4+AB) 

FOR I=1 TO 5:F=RND(N) 

IF F=11 THEN F=1000:IF F=1000 PRINT A5,“JOKE- 
R”;:A(2)=0:GOTO 280 

PRINT @A4,F;:A(2)=F+A(2):A4=A4+8:NEXT I 

IF P > = 1 PRINT @Z+129,A(0);: ELSE 290 

IF P > = 2 PRINT @ Z1+129,A(1);: ELSE 310 

IF P=3 PRINT @Z2+129, A(2); 

GOSUB 430:GOTO 61 

Z=((A— AB) +32): PRINT € Z, C$; 

Z1=((A*3)-— 20): PRINT € Z1,B$; 

Z2=((A*2)—18):PRINT @Z2, A$; 

RETURN 

CLS:PRINT:IF P=3 PRINT“LET’S HAVE YOUR BET ”;A$:IN- . 
PUT M:IF M < 1 OR M > 50 THEN 390 

IF P > = 2:PRINT“LET’S HAVE YOUR ВЕТ”: B$:INPUT M1: IF 
M1 < 1 OR M1 > 50 THEN 400 

IF D$="YES" THEN 406 ELSE 410 

M2=RND((10)+40) 

PRINT"I GUESS TLL BET”; M2;“ON THIS ROUND" 

FOR I=1 TO 1000:NEXT:GOTO 420 

PRINT"LET'S HAVE ”;C$;“ BET”: INPUT М2ЛЕ M2 < 1 OR M2 
> 50 THEN 410 

RETURN 

FOR I=1 TO 2000:NEXT: CLS 

PRINT: IF P=3: PRINT A$;“’S BET WAS” M; "AND DREW ”;:IF 
A(2)=0 PRINT"A JOKER”: ELSE PRINT A(2) 

IF P > = 2:PRINT B$5" 5 BET WAS”; ML; "AND DREW ”; ЈЕ 
A(1)=0 PRINT“A JOKER”: ELSE PRINT А(1) 

PRINT C$;“ 75 BET WAS”;M2;"AND DREW ” ТЕ A(0)=0 
PRINT"A JOKER”: ELSE PRINT A(0) 
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470 


480 
490 
500 


510 


512 
514 
516 
520 
525 
530 
040 
550 
555 
557 
908 
560 
570 
580 
590 
600 
610 
620 
630 


640 
650 


660 


670 
680 


690 
700 
710 
720 
730 
740 
750 
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PRINT:PRINT“REMEMBER, IF YOU DRAW A JOKER, YOU 
WILL LOSE” 

PRINT"ALL BETS ON THIS ROUND.....SORRY !!” 

IF A(2)=0 THEN M4=A(2)- M+Q(4): ELSE M4=A(2)+M+Q(4) 
IF A(1)=0 THEN M5=A(1)—M1+Q(5): ELSE M5=A(1)+ 
М1--0(5) 

IF A(0)=0 THEN M6=A(0)- M2+Q(6): ELSE M6=A(0)+ 
M2+Q(6) 

IF М >A(2) THEN M4=(A(2)- M)+Q(4) 

IF M1 >A(1) THEN M5=(A(1)—M1)+Q(5) 

IF M2 > A(0) THEN M6=(A(0)— М2)--0(6) 
PRINT:PRINT“CURRENT STANDINGS THUS FAR:” 

PRINT 

IF P=3:PRINT A$;“ 'S TOTAL POINTS ”; М4 

IF P > = 2:PRINT B$; “’S TOTAL POINTS ” М5 

PRINT C$;“ ’S TOTAL POINTS ”; М6 

IF M4 >=500 AND M4 >M5 AND M4 > M6 GOTO 620 

IF M5 >=500 AND M5 > M4 AND M5 > M6 GOTO 640 

IF M6 >=500 AND M6 > M4 AND M6 > M5 GOTO 660 

FOR I=1 TO 5000: NEXT 

A(0)=0: А(1)--0: А(2)-0 

Q(4)=M4 

Q(5)=M5 

Q(6)=M6 

RETURN 

PRINT“LOOKS LIKE ”:A$;“ IS THE WINNER WITH A TOTAL" 
РВІЧТ“ОЕ”; M4;“POINTS, CONGRATULATIONS !!!": GOTO 
680 

PRINT“LOOKS LIKE ”: B$;“IS THE WINNER, WINNING WITH" 
PRINT"A TOTAL ОЕ”; M5;“POINTS, GOOD SHOW !!!”:GOTO 
680 

PRINT"CONGRATULATIONS ”;C$;", YOUR THE WINNER 
WITH A” 

PRINT“GRAND TOTAL OF”; M6; "POINTS, HURRAH !!” 
PRINT:PRINT"WOULD YOU LIKE TO PLAY ANOTHER 
ROUND OF” 

PRINT"PLAY THE NUMBERS" 

INPUT N$ 

IF N$=“YES” THEN 720 ELSE 730 

M4=0:M5=0:M6=0:GOTO 20 

PRINT 

PRINT“CAN’T HANDLE ALL THESE RANDOM NUMBERS ???” 
END 


Higher/Lower 
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This is the game of HIGHER/LOWER, where you'll be using a 
deck of 52 cards. You'll place your bet after the first card is printed, 
then you'll input your guess of the next card, either HIGHER or 
LOWER. After all 52 cards are drawn the computer will print your 
total amount (won or lost). See Fig. 8-2 for flowchart for this 
program. 


Program Listing 


10 
15 
20 
30 
40 


50 


60 
70 


CLEAR 100:DEFINT A-S 

RANDOM: DIM A(104) 

CLS:PRINT:IF Q=1 THEN 130 

PRINT (TAB(20); “HIGHER/LOWER” 

PRINT:PRINT“IN THIS GAME A RANDOM CARD WILL BE 
PRINTED, YOU'LL” 

PRINT“PLACE YOUR BET (ANY AMOUNT) AND THEN DE- 
CIDE IF THE” 

PRINT“NEXT CARD WILL BE HIGHER OR LOWER.” 
РКІМТ“ТО PLAY:” 
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80 


90 
100 


110 


120 
130 
140 
150 
160 
170 
180 
190 


200 
210 


220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


320 


330 


240 


350 
360 
370 
380 
390 
400 
410 
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PRINT“THE COMPUTER WILL ASK FOR YOUR BET, THEN 
THE COMPUTER” 

PRINT"WILL ASK HIGHER OR LOWER ” 

PRINT"ENTER H FOR HIGHER OR L FOR LOWER. IF YOUR 
GUESS” 

PRINT"WAS CORRECT, YOU'LL WIN THAT AMOUNT YOU'VE 
BET. IF" 

PRINT"INCORRECT, YOU'LL LOSE THAT AMOUNT." 
PRINT:INPUT"PRESS ENTER TO BEGIN ;X 
R=1:K=R*52:J=0:U=14:C1=:C1=0:C2=52:E=0:GOTO 160 
B=(K-29)*2+-((K-50)+401): RETURN 

REM CARDS 

FOR X=0 TO 1:FOR V=1 TO 52:A(X*52+Y)=Y:NEXT Y,X 
CLS:GOSUB 210 

CLS:GOSUB 150 

GOSUB 230:GOTO 240 

PRINT CHR$(23):PRINT:PRINT:PRINT“ . . . . SHUF- 
FLING”: FOR L=1 TO 52:X=RND(K): Y=RND(K):S=A(KX): AQ) 
=A(Y):A(Y=S:NEXT:J=1: RETURN 
M=(AQ)-1)/13:P=A()-M*13: RETURN 

FOR T=1 TO 7:IF T > 6 THEN CLS:GOTO 190 

GOSUB 220:GOSUB 430:GOSUB 250:GOTO 460 

IF P=] Р=15:1Е P=15 PRINT ОВ, “ACE”;:GOTO 290 

IF P=11 PRINT ОВ, “JACK”’;:GOTO 290 

IF P=12 PRINT GB, “QUEEN”;:GOTO 290 

IF P=13 PRINT GB, "KING”;:GOTO 290:ELSE PRINT Б.Р; 
C=B+64: GOTO 370 

IF P=Q PRINT 855, "THEY'RE EQUAL”: E=E+1:GOTO 350 
IF X$="H" AND Q >< PRINT 855, “СОК- 
КЕСТ”:С1=С1+2: СОТО 350 

IF X$="L" AND P < PRINT 855, "CORRECT”:C1=C1 
+Z:GOTO 350 

IF X$=“H” AND P < Q PRINT 855,“INCORRECT”:C1=Cl- 
Z:GOTO 350 

TP Ү2-“І” AND Q < D PRINT 9855, INCORRECT":C1—01-79 
FOR I=1 TO 1200:NEXT I:PRINT @855 

RETURN 

IF M=0 PRINT @C,“HEART”;:GOTO 410 

IF M=1 PRINT OC, "SPADES";: СОТО 410 

IF M=2 PRINT OC, "CLUBS”;:GOTO 410 

IF M=3 PRINT OC, “D ‘MND”; 

GOSUB 480:J=J+1L:IF .J < K PRINT 1, “O U Т OF 
CARD S”:FOR I=1 ТО 1500:NEXT I: GOTO 530 


OUTPUT 
INSTRUCTIONS 


GET CARDS 


INPUT BET 


INPUT GUESS 
PRINT CARDS 


Fig. 8-2. The flowchart for Higher/Lower. 


420 
430 
440 
450 


RETURN 

X=(T-1)*22:1=X+U: Y=(T-T)*270+18:H=Y+10 

FOR X=X ТО ESETQL V:SET(X, H): NEXT: X=I-14 
FOR Y=Y TO Н:ЅЕТ(Х, Y):SET, Y): NEXT: RETURN 
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460 Q=P 

470 B=B+11:NEXT T 

480 IF J > 1 GOSUB 300 

490 PRINT @1,“PLACE ВЕТ”; 

495 INPUT Z 

500 PRINT @1,“HIGHER/LOWER (H/L)”; 

505 INPUT X$ 

510 IF X$ < > "H" AND X$ < > “L” PRINT @1,“TRY AN H ORL, 


TURKEY !!”; 
FOR I=1 TO 1500:NEXT I:GOTO 500 
520 PRINT 61,” "RETURN 


530 CLS:PRINT:PRINT CHR$(23) 
540 PRINT"TOTAL CARDS DRAWN: '5C2 
550 PRINT"TOTAL CARDS DRAWN EQUAL: “;E 
560 IF C1 < =0 THEN 590 
570 PRINT"YOU'RE RICHER NOW...” 
575 PRINT“BY $”;C1;“DOLLARS !!” 
GOTO 615 
590 PRINT“YOU ARE IN THE HOLE...” 
600 PRINT"BY $"; CL;"DOLLARS." 
615 PRINT:PRINT"ARE YOU READY TO TRY ANOTHER DECK”; 
630 INPUT A$ 
640 IF A$=“YES” THEN Q=1:GOTO 20 
650 PRINT:PRINT"IT'S ONLY COMPUTER MONEY..." 
660 PRINT“CHICKEN !!!” 
670 END 


ШШ wi 


fr Bed m 
[ТА n i 


Designed specifically for the TRS-80™ this game uses POKE 
STATEMENTS to provide the high-speed graphics that make up 
the maze. After 8 rounds through the maze (providing you make it 
each time) you will be congratulated. Each time you hit a lighted 
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area your total count returns to zero. Speed of movement through 
the maze increases with each entry toward home. The four keys 
you'll use are: 

(U)P 

(DOWN 

(L)EFT 

(RIGHT 

Starting position will be the lighted block at the bottom of the 
video screen, left corner. The HOME position is in the upper right 
corner. All you have to do is hit the vertical line at the ‘HOME’ 
position to win a round. 

Stay in the dark area without hitting or scraping the lighted 
area and the computer might let you slide by, but catch the hits or 
scrapes as you get closer to ‘HOME’ position. You might want to 
adjust the brightness and contrast controls to clarify the maze area. 
Remember, each entry into the HOME position counts as one point 
and you must get a total of 8 points to win. See Fig. 8-3 for 
flowchart for this program. 


Program Listing 


10 CLS 
20 C=191:R=0:T=225 
25 IFZ > 1 THEN 200 
30 PRINT:PRINT 
40 PRINT 148, “*** MAZE ***” 
50 PRINT:INPUT“INSTRUCTIONS”; A$ 
60 IF A$ < >“ҮЕ5” THEN 195 
70 PRINT“THIS IS THE GAME OF MAZE:” 
75 PRINT“STARTING POSITION WILL BE THE LIGHTED 
BLOCK AT THE BOTTOM” 
76 PRINT“OF THE VIDEO SCREEN IN THE LEFT CENTER.” 
80 PRINT"YOU'LL ONLY BE USING FOUR KEYS TO GET YOUR- 
SELF” 
90 PRINT“TO THE ‘HOME’ POSITION.” 
95 PRINT 
100 PRINT"(U)P" 
110 PRINT“(D)OWN” 
120 PRINT“(L)EFT” 
130 PRINT“(R)IGHT” 
135 PRINT:PRINT“PRESS ANY KEY TO CONTINUE INSTRUC- 
TIONS.” 
136 A$=INKEY$:IF А$=“ “ THEN 136 
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YES 


SET COUNTERS 


INSTRUCTIONS 


SET GRAPHICS | 


SET STARTING 
POINT — — 


SET X. Y 


Х5 = INKEYS 


NO YES 


© FINAL MESSAGE 


Fig. 8-3. The flowchart for Maze. 


137 
140 


150 


160 


170 
171 


172 
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CLS:PRINT:PRINT 

PRINT“TO SUCCESSFULLY COMPLETE THE GAME, YOU 
MUST COMPLETE” 

PRINT“EIGHT ROUNDS WITHOUT HITTING THE LIGHTED 
AREA.” 

PRINT“EACH TIME YOU DO (HIT OR SCRAPE A LIGHTED 
AREA) YOUR” 

PRINT“TOTAL COUNT WILL RETURN TO ZERO.” 
PRINT“IF YOU CHEAT, THE COMPUTER MIGHT NOT 
CATCH IT RIGHT OFF,” 

PRINT“BUT WAIT UNTIL YOU THINK YOU'RE GOING ТО 
MAKE IT HOME.” 


175 


176 


177 
180 
190 


195 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 


РКІМТ“(МОТЕ: MOVEMENT THROUGH THE MAZE WILL 


INCREASE IN SPEED” 


PRINT“WITH EACH CORRECT ENTRY TO ‘HOME’. ALSO, 


EACH ENTRY TO 


PRINT" ‘HOME’ COUNTS AS ONE POINT).” 


PRINT“PRESS ANY KEY TO BEGIN.” 
A$=INKEY$:IF A$=“ " THEN 190 

CLS 

FOR X=15360 TO 15402:POKE X,C:NEXT 
FOR X=15488 TO 15489:POKE X,C: NEXT 
FOR X=15808 TO 15823:POKE X,C:NEXT 
FOR X=15872 TO 15900:POKE X,C:NEXT 
FOR X=15936 TO 15964:POKE X,C:NEXT 
FOR X=16064 TO 16078:POKE X,C:NEXT 


FOR X=16137 TO 16142:POKE X,C+4:NEXT 


FOR X=16192 TO 16194:POKE X,C:NEXT 
FOR X=16320 TO 16330:РОКЕ X, C: NEXT 
FOR X=15492 TO 15516:POKE X,C: NEXT 
FOR X=15562 TO 15566:POKE X, C: NEXT 
FOR X=15690 TO 15694:POKE X, C:NEXT 
FOR X=15626 TO 15630:РОКЕ X, C: NEXT 
FOR X=15633 ТО 15642:POKE X, C:NEXT 
FOR X=15697 TO 15706:POKE X,C: NEXT 


FOR X=15761 TO 15770:POKEX,C+4:NEXT 


FOR X=15581 ТО 15595:POKE X, C:NEXT 
FOR X=15645 TO 15659:POKE X,C: NEXT 


FOR X=15660 TO 15678:POKE X,C-15:NEXT 


FOR X=15470 TO 15473:POKE X, C: NEXT 
FOR X=15478 TO 15487: POKE X, C:NEXT 
FOR X=15534 TO 15551:POKE X, C:NEXT 
FOR X=15598 TO 15615:РОКЕ X, C: NEXT 
FOR X=15732 TO 15741:POKE X,C:NEXT 
FOR X=15831 TO 15836:POKE X, C: NEXT 
FOR X=15773 TO 15779:POKE X, C: NEXT 


FOR X=15780 TO 15795:POKE X,C-15: NEXT 


FOR X=16091 TO 16084:POKE X, C: NEXT 
FOR X=16145 TO 16148:РОКЕ X,C: NEXT 


FOR X=16197 TO 16208:POKE X,C-15: NEXT 


FOR X=16209 TO 16212:OKE X, C: NEXT 
FOR X=16269 TO 16276:POKE X, C:NEXT 


FOR X=16339 TO 16347:POKE X,C--4: NEXT 


FOR X=16150 TO 16156:POKE X,C: NEXT 
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540 FOR X=16214 TO 16220:POKE X,C:NEXT 

550 FOR X=33 TO 35:SET(44,X):SET(45,X):SET(46,X):NEXT 

560 FOR X=16098 TO 16115:POKE X,C:NEXT - 

570 FOR X=16162 TO 16179:POKE X,C:NEXT 

580 FOR X=16088 TO 16095:POKE X,C+4:NEXT 

590 FOR X=16226 TO 16243:POKE X,C:NEXT 

600 FOR X=16290 TO 16307:POKE X,C:NEXT 

610 FOR X=36 TO 39:SET(60, X):SET (61,X):SET(62,X):SET(63, 
X):NEXT 

620 FOR X=40 TO 47:SET(61,X):SET(62,X):NEXT 

630 FOR X=15903 TO 15918:POKE X,C:NEXT 

640 FOR X=15967 TO 15982:POKE X,C:NEXT 

650 FOR X=30 TO 32:SET(62,X):NEXT 

670 FOR X=15857 TO 15859:POKE X,C:NEXT 

680 FOR X=15921 TO 15923:POKE X,C:NEXT 

690 FOR X=15985 TO 15987:POKE X,C:NEXT 

700 FOR X=16049 TO 16059:POKE X,C:NEXT 

710 FOR X=16062 TO 16063:POKE X,C:NEXT 

720 FOR X=16126 TO 16127:POKE X,C:NEXT 

730 FOR X=16182 TO 16191:POKE X,C:NEXT 

740 FOR X=16310 TO 16319:POKE X,C:NEXT 

750 FOR X=16380 TO 16383:POKE X,C:NEXT 

760 FOR X=0 TO 47:SET(0,X):SET(127,X):NEXT 

770 X=35:Y=46:REM STARTING POINT 

775 SETQ,Y) 

780 PRINT @121,“HOME “CHR$(91); 

790 X$=INKEY$ 

800 IF X$="D" THEN 830 

810 IF X$-"L" THEN 900 

820 IF X$="R" THEN 1600 

825 IF X$="U" THEN 1400 

826 GOTO 790 

830 SET(X,Y):Y=Y+1 

840 GOSUB 1100 

850 X$=INKEVS 

855 IF POINT(94,32) OR POINT(95,32) OR POINT(64,47) OR 
POINT(65,47) 
OR POINT(66,47) OR POINT(55,20) OR POINT(56,20) THEN 
1200 

860 IF X$=“L” THEN 900 

870 IF X$=“R” THEN 1600 

880 IF X$—"U" THEN 1400 

890 IF Y < > 47 THEN 830 ELSE 2000 
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900 
910 
920 
925 
930 
931 
935 
940 
950 
960 
1100 
1200 
1210 
1220 
1225 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1400 
1410 
1420 
1430 


1440 


1450 


1460 


1470 


1475 


SET(X, Y):X=X-1 

GOSUB 1100:X$=INKEY$ 

FOR A=45 TO 47:IF POINT(22,A) THEN 1200 ELSE NEXT 
FOR A=20 TO 22:IF POINT(104,A) THEN 1200 ELSE NEXT 
FOR A=15 TO 17:IF POINT(54,A) THEN 1200 ELSE NEXT 
IF POINT(106,18) OR POINT(107,18) THEN 1200 

IF X$—"D" THEN 830 

IF X$—"R" THEN 1600 

IF X$="U" THEN 1400 

IF X « > 0 THEN 900 ELSE 2000 

FOR I=1 TO T:NEXT:RETURN 

CLS:PRINT CHR$(23) 

PRINT:PRINT 

PRINT"YOU BLEW IT, TURKEY !!" 

PRINT"WATCH THE SCRAPING,” 

PRINT"AND QUIT TRYING TO CHEAT !!" 

FOR I=1 TO 1000:NEXT 

Z=2:GOTO 10 

CLS:PRINT CHR$(23) 

PRINT:PRINT:PRINT 

PRINT"GO THE OTHER WAY, DUMMY !!" 

PRINT"THERE IS MORE ROOM !!” 

GOTO 1240 

SET, Y): Y-Y-1 

GOSUB 1100 

X$=INKEY$ 

IF POINT(26,45) OR POINT(27,45) OR POINT(29,37) OR 
POINT(22,42) 

OR POINT(23,42) OR POINT (24,42) THEN 1200 

IF POINT(10,42) OR POINT(11,42) OR POINT(34,45) OR 
POINT(35, 45) 

OR POINT(36,45) THEN 1200 

IF POINT(1,42) OR POINT(2,42) OR POINT(3,42) OR POINT 
(4,42) 

OR POINT(5,42) THEN 1200 

IF POINT(6,36) OR POINT(8,36) OR POINT(10,36) OR 
POINT(12,36) OR POINT(14,36) THEN 1200 

IF POINT(30,30) OR POINT(31,30) OR POINT(32,30) OR 
POINT (33,30) 

THEN 1200 

FOR A=1 TO 11 STEP 2:IF POINT(A,20) THEN 1200: ELSE 
NEXT 
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1480 


1485 


1490 


1500 
1510 
1520 
1530 
1535 


1540 
1550 
1560 
1570 
1580 
1600 
1610 
1620 
1630 
1640 


1650 
1655 
1660 
1670 
1680 


1685 
1690 


1695 


1700 


240 


IF POINT(58,21) OR POINT(59,21) OR POINT(60,21) OR 
POINT(61,21) THEN 1200 

FOR A=33 ТО 43 STEP 2:IF POINT(A,23) THEN 1200 ELSE 
NEXT 

IF POINT(102,45) OR POINT(103,45) OR POINT(104,33) OR 
POINT(105,33) OR POINT(118,33) OR POINT(119,33) THEN 
1200 

IF POINT(100, 15) OR POINT(101, 15) OR POINT(102,15) THEN 
1200 

IF POINT(106, 18) OR POINT(125, 18) OR POINT(126, 18) THEN 
1200 

IF POINT(2,9) OR POINT(3,9) OR POINT(8,9) OR POINT(@,9) 
THEN1200 

IF POINT(3,3) OR POINT(4,3) OR POINT(5,3) OR POINT(6,3) 
THEN 1200 

IF POINT(87,0) OR POINT(88,0) OR POINT(89,0) THEN 1200 

IF POINT(58,29) THEN 1200 

IF X$="D" THEN 830 

IF X$—"L" THEN 900 

IF X$—"R" THEN 1600 

IF Y « > 0 THEN 1400 ELSE 2000 

SET(X, Y):X=X+1 

GOSUB 1100 

X$=INKEY$ 

IF POINT(39,46) ОК POINT(39,47) THEN 1260 

IF POINT(34,32) ОК POINT(33,38) ОК POINT(33,39) THEN 
1200 

IF POINT(63,30) OR POINT(63,31) OR POINT(63,32) THEN 
1200 

IF POINT(30,30) OR POINT(31,30) OR POINT(32,30) THEN 
1200 

IF POINT(97,21) OR POINT(97,22) OR POINT(97,23) THEN 
1200 

IF POINT(115,45) OR POINT(115,46) OR POINT(115,47) THEN 


TOAD 
LAV 


IF POINT (123,34) OR POINT(123,35) THEN 1200 

IF POINT(104,33) OR POINT(105,33) THEN 1200 

IF POINT(90,3) OR POINT(90,4) OR POINT(90,5) OR 
POINT (90,6) OR POINT(90,7) THEN 1200 

IF POINT(3,3) OR POINT(4,3) OR POINT(5,3) OR POINT(6,3) 
THEN 1200 

IF POINT(87,0) OR POINT(88,0) OR POINT(89,0) THEN 1200 


1705 


1710 
1720 
1730 
1740 
1800 
1810 
1820 
1830 
1840 
1841 
1845 
1850 
1860 
1870 
1875 
1880 
1890 
1900 
1910 
1920 
2000 
2010 
2020 
2030 
2040 
2045 
2050 


IF POINT(126,0) OR POINT(126,1) OR POINT(126,2) THEN 
1800 

IF X$="D" THEN 830 

IF X$="L" THEN 900 

IF X$="U" THEN 1400 

IF X < > 127 THEN 1600 ELSE 2000 
CLS:R=R+1:PRINT CHR$(23) 

FOR I=1 TO 500:NEXT 

PRINT: PRINT 

PRINT“CONGRATULATIONS !!!” 

PRINT"YOU'VE MADE IT HOME !!” 

IF R=8 THEN 1870 

PRINT"THIS IS ROUND МОМВЕК”К 

IF R < >8 PRINT“YOU STILL HAVE”;8-R; “ROUNDS TO GO." 
T=T-25:PRINT:GOTO 180 

PRINT“THAT TAKES CARE OF 8 ROUNDS !!” 
PRINT“CONGRATULATIONS.... ALL 8 IN A ROW !!" 
PRINT“LET’S TRY ANOTHER 8”; 

INPUT A$ 

IF A$=“YES” THEN Z=2:GOTO 10 
PRINT: PRINT“ CHICKEN!!!” 

END 

CLS:PRINT СНК9(23) 

PRINT: PRINT 

PRINT“I DON’T KNOW WHERE YOU THINK” 
PRINT“YOU ARE GOING TURKEY, BUT YOU'D" 
PRINT“BETTER KEEP IT ON THE RIGHT” 
РВІМТ“ТКАСК!!!” 

FOR I=1 TO 2000: МЕХТ:7=2: СОТО 10 


M 


Channel ER 


ІШІН 


This is the challenging game of Channel. Where you'll be maneuvering a 
block through random openings on vertical bars. Be sure you go through 
the openings or you will receive an error point (12 errors possible, per 


run). 
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Each set comprises 10 runs; the block increases in speed as the runs 
increase. If you want to move the block to the right, press the ‘M’ key (you 
do not need to press enter) to move through the openings. Then press the 
‘S’ key to stop right movement of the block and continue moving up/down. 

After 10 runs, the total errors will be printed with a message, after 
which instructions will be listed for the second half of the game. Approxi- 
mately the top half of the vertical bars will be in “steps” (for the second half 
of the game). You must figure which opening the computer has selected 
and move your block through it. Needless to say you must be exact, 
because the computer will not allow any margin for error. 

You'll control the block to the right side of the video (as in the first 
half) and "hit" the lighted block area (this area will be about a half inch long, 
down the frame). This lighted area must be "hit" straight in, not up/down. 
If there is an opening in the last vertical bar straight across from the lighted 
area, you must first go up/down then “hit” the lighted area, otherwise you'll receive 
an error point. 

As with the first half a total of 10 runs will be completed after which 
the total errors and a message will be printed. See Fig. 8-4 for the 
flowchart for this program. 


Program Listing 

100 DIM А(53) ,Z(50) ,B(20) 

150 CLS:RANDOM:PRINT 

200 PRINT TAB(15), “CHANNEL” 

290 PRINT 

300 PRINT"THIS IS THE CHALLENGING GAME OF CHANNEL." 

400 PRINT YOU LL ONLY BE USING THE 'M' KEY AND THE 'S' ." 

450 PRINT“KEY. TO MOVE RIGHT PRESS THE 'M' KEY, TO" 

500 PRINT"MOVE UP/DOWN PRESS THE 'S' KEY. YOU WILL 
NOTICE" 

550 PRINT"THE OPENINGS ON THE VERTICAL BARS. TO BE 
SUCCESSFUL" 

555 PRINT"WITHOUT ERROR, YOU MUST MAKE IT THROUGH 
ALL OPENINGS" 

600 PRINT"WITHOUT TOUCHING THE TOP OR BOTTOM OF 
THE OPENINGS." 

655 PRINT"AFTER GOING THROUGH ALL OPENINGS, YOU 
MUST 'HIT' THE" 

700 PRINT"BLOCK STRAIGHT ON AT THE RIGHT OF THE 
VIDEO SCREEN." 

755 PRINT"A TOTAL OF 10 RUNS PER SET (OF TWO SETS) WILL 
BE COM-" 

800 PRINT'PLETED. AFTER EACH SET YOUR TOTAL ERRORS 
WILL BE" 

850 PRINT"PRINTED. REMEMBER, ONLY GO THROUGH THE 
OPENINGS ON" 
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LIST 
INSTRUCTIONS 


SET 
COUNTERS 


DRAW 
GRAPHICS 


START BLOCK 
RANDOM AREA 


2% = INKEYS 


| NO NO 
NO YES YES 
MOVE BLOCK 
ZV + 12Ү ~1 | ERROR +1 | | 8=8+1 


— NO pasas 
PRINT SCORE 


YES 
PRINT TOTAL 
SCORE 


MESSAGE 
Ç D 
YES 


N 
PLAY AGAIN 
YES 


Fig. 8-4. The flowchart for Channel. 


855 РКІМТ“ТНЕ VERTICAL BARS.” 
900 PRINT“PRESS ENTER TO BEGIN..... ф- 
904 INPUT E$ 
905 B=1:JK=14:T=2:GOSUB 910:IF YY < = 35 THEN 
YB=YY:ELSE YB=20 
908 GOTO 1070 
910 FOR 5-0 TO 11:А(5)-5:МЕХТ 
920 FOR C=0 TO 47:Z(CO) -C:NEXT 
1000 CLS:V=8:AG=0 
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1001 
1002 
1010 
1012 
1015 
1020 
1030 


1035 
1040 
1045 
1050 
1060 
1070 
1080 
1100 
1105 
1110 
1120 
1125 
1130 


1140 
1150 
1160 
1170 
1180 
1190 
1200 


1210 
1250 
1255 
1260 
1265 
1270 
1300 
1310 
1315 
1320 
1330 
1340 
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FOR L=0 TO 47:SET(0,L):SET(127,L): NEXT 
FOR M=0 TO 127:SET(M,0):SET(M,47):NEXT 
XX=20:N=0 

XX=XX+V:IF XX > = 122 THEN RETURN 
YY=RNDG37):IF Z(YY)=0 THEN 1015 
A(N)=YY:N=N+1: VV=N 

IF SF=1 THEN GOSUB 1580:GOSUB 1600:GOTO 1045:REM 
SECOND HALF i 
FOR X=0 TO YY:SET(XX,X):NEXT 

Z(YY)=0: YY=YY+3 

IF SF=1 THEN Z(YY)=0: YY=YY+2:GOSUB 1650:GOTO 1060 
FOR X=YY TO 46:SET(XX, X) NEXT 

GOTO 1012 

REM START AT RANDOM AREA—LEFT SIDE OF VIDEO 
SET(126, YB+5):SET(126, YB+6):SET(126, YB+7) 
Z-RND(20):IF Z < 5 THEN 1100 

ZY=RND(46):N=0 

Z$-INKEYS:IF Z < > "M" THEN 1160 

Z=Z4+1:SET(Z,ZY): FOR NM=1 TO JK:NEXT 

IF Z=126 THEN 1300 

RESET(Z,ZY):Z$=INKEY$:IF Z$="S” AND Z > 36 THEN 
N=N+1 

IF Z$ < > “5” THEN 1120 

IF ABSZY-A(N)) > T THEN 1250:ELSE A(N)=1 
SET(Z,ZY): FOR NM=1 ТО JK:NEXT 

КЕ5ЕТ(7,2Ү)ЛЕ ZY=46 THEN R=1 

IF R=1 THEN 1200 

IF ZY > = 0 THEN ZY=ZY+1:GOTO 1110 

IF ZY < 47 THEN ZY=ZY-1:R=1:IF ZY=0 THEN R=0:GOTO 
1190 

GOTO 1110 

PRINT @129, "ERROR"; 

A(N)=0 

FOR NM=1 TO 50:NEXT 

PRINT @ 129," m 

GOTO 1110 

REM CHECK FOR TOTAL ERRORS PER 1 RUN 

FOR I=0 TO VV-1 

IF A(D-1 THEN AG=AG:ELSE AG=AG+1 

NEXT 

PRINT @ 65, “ERRORS ="; AG; 

PRINT & 129, "RUNS =";B; 


1350 
1360 
1365 
1370 
1380 
1385 
1389 
1390 
1395 
1400 
1410 
1415 
1418 
1420 
1430 
1440 
1450 
1460 
1470 


1480 


1490 
1495 


1500 


1505 


1508 
1510 
1515 


1517 


1518 
1520 
1525 
1530 
1540 
1550 
1580 


FOR LL=1 TO 1500:NEXT 

B(B)=AG 

B=B+1:JK=JK-1 

IF B< > 11 THEN GOSUB 910:GOTO 1070 

REM ADD TOTAL ERRORS PER 10 RUNS 

FOR I=1 TO B:TE=TE+B(D 

FOR LL=1 TO 3 

PRINT @ 193, “TOTAL”; 

PRINT @ 257, “ERRORS =”; TE; 

NEXT LL, I 

FOR LL=1 TO 1500: NEXT 

PRINT: PRINT 

REM PRINT MESSAGE FOR TOTAL ERRORS RECEIVED 
IF TE >=0 AND TE <=20 THEN 1470 

IF TE >=21 AND TE <=40 THEN 1480 

IF TE >=41 AND TE <=60 THEN 1490 

IF TE >=61 AND TE <=80 THEN 1500 

IF TE >=81 THEN 1510 

PRINT“THAT IS A REALLY GOOD SCORE, ONLY”; TE;"ER- 
RORS !!!^: GOTO 1520 

PRINT"THAT'S NOT A BAD SCORE, JUST THINK, YOU 
COULD'VE DONE WORSE !!': GOTO 1520 

PRINT"REALLY GETTING UP INTO THE HIGH ERRORS ??" 
PRINT “WITH”; TE; "ERRORS, YOU SHOULDN'T TELL ANY- 
ONE !!!":GOTO 1520 

PRINT“YOU MISSED THE POINT OF THE GAME, YOU 
WERE” 

PRINT'"SUPPOSED TO GET AS FEW ERRORS AS 
POSSIBLE. 4.62" 

PRINT“YOU ENDED UP WITH”; ТЕ!!! СОТО 1520 
PRINT “THAT IS SOMETHING !!!” 

PRINT“CAN YOU MAKE IT THROUGH YOUR OWN HOUSE, 
WITHOUT” 

PRINT"HITTING A WALL ??? WITH”;TE;“ERRORS YOU 
PROBABLY” 

PRINT“FIND IT HARD, DON’T YOU ???” 

FOR LL=1 TO 3900:NEXT 

IF SF=1 THEN 1900 

TE=0:SF=1:B=1:T=0; JK=14 

GOSUB 1700: GOSUB 910: СОТО 1070 

REM STEP VERTICAL BAR FOR SECOND HALF 

FOR X=0 TO YY STEP 3:SET(XX, X): NEXT 
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1590 
1600 
1605 
1608 


1610 
1650 
1660 
1670 
1700 
1710 
1720 
1730 
1740 
1745 
1750 
1755 
1760 


1770 


1780 
1800 
1810 
1820 
1830 
1900 
1910 
1920 
1930 
1940 
1950 


1960 
1570 
1980 
1990 
2000 
2010 
2020 
2030 
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КЕТОКМ 

YK=YY+4 

IF ҮК > = 44 THEN YK=YY-4 

REM YK CAN BE USED IN PLACE OF 47 IN LINE 1650 TO 
CHANGE GRAPHIC 

RETURN 

FOR X=YY TO 47 

SET(XX, X): NEXT 

RETURN 

CLS:PRINT: REM INSTRUCTIONS FOR SECOND HALF 
PRINT"THE SECOND HALF OF THE GAME WILL BE" 
PRINT"SOMETHING LIKE THE FIRST, EXCEPT THE" 
PRINT"TOP PART OF THE VERTICAL BARS WILL BE" 
PRINT"IN STEPS." 

PRINT"YOU'LL HAVE TO FIGURE WHICH OPENING THE" 
PRINT"COMPUTER HAS SELECTED AS THE CHANNEL." 
PRINT'(YOU MUST BE EXACT)” 

PRINT"A TOTAL OF 10 RUNS THROUGH THE CHANNEL 
WILL" 

PRINT"BE COMPLETED. WITH MOVEMENT INCREASING 
AS" 

PRINT“THE ROUNDS INCREASE ..... GOOD LUCK !!!” 
PRINT 

PRINT"PRESS ENTER TO BEGIN"; 

INPUT E$ 

CLS:RETURN 

PRINT: PRINT 

PRINT"ARE YOU READY TO CHANNEL SOME MORE?; 
INPUT E$ 

IF E$="YES” THEN 1960 

IF E$="NO" THEN 1970 

PRINT"THAT WAS A YES OR NO QUESTION . . . TRY 
AGAIN":GOTO 1900 

TE=0:SF=0:GOTO 905 


CLS 

PRINT CHR$(23) 
PRINT:PRINT 
PRINT“CHICKEN !!” 
FOR LL=1 TO 5000 
NEXT 

END 


Appendices 


This section contains some of the statements used in the TRS-80™, 
APPLE™ and PET® COMPUTERS. Only the statements that 
differ from one computer to the next are listed. 
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ndix A TRS-80 


Glossary For Level ІІ Basic 


ADDRESS: A value specifying the location of a byte in memory; decimal values are 
used in LEVEL IL. 

ALPHANUMERICS: The set of letters A-Z, the numerals 0-9, and various punc- 
tuation marks and special characters. 

ARGUMENT: The value which is supplied to a function and then operated on to 
derive a result. 

ARRAY: An arrangement of elements in one or more dimensions. 

ASCII: American Standard Code for Information Interchange; in Level II BASIC, 
DECIMAL VALUES are used to specify ASCII codes. 

ASSEMBLER: A program that converts a symbolic-language program into a 
machine-language program. 


BASIC: Beginners All-Purpose Symbolic Instruction Code. 

BAUD: Signaling speed in bits per second; LEVEL N's cassette interface operates 
at 500 baud (500 bits per second). 

BINARY NUMBER: A number represented in the base-two number system using 
only binary digits "0" and "1". 

BIT: Binary-digit, the smallest memory cell in a computer. 

BYTE: The smallest memory unit that can be addressed in BASIC, consisting of 8 
consecutive bits. 


DECIMAL NUMBER: A number represented in the base-ten number system 
using the digits 0-9. 


EXPRESSION: A combination of one or more operations, constants and variables. 
FILE: An organized collection of related data. 


HEXADECIMAL NUMBER: A number represented in the base-16 number sys- 
tem using the digits 0-9 plus A,B,C,D,E,F. 


INTRINSIC FUNCTION: A function (usually a complicated function) that may be 
"built-in" to the computer's ROM and may be used directly in a BASIC state- 
ment. 


LOGICAL EXPRESSION: An expression which is either True or False: if 
True,-1 is returned; if False, 0 is returned. 


MACHINE LANGUAGE: The language used directly by the Computer, written as 
binary-coded instructions. 


PORT: One of 256 channels through which data can be input to or output from the 
Computer. 


RAM: Random Access Memory; memory available to the user for writing programs 
and storing data. 

ROM: Read Only Memory; memory which is permanently pro- 
grammed and may be read but not written into; LEVEL II BASIC is stored in 
ROM. 
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ROUTINE: A sequence of instructions to carry out a certain function. 


STATEMENT: A complete instruction in BASIC. 

STRING: A sequence of alphanumeric characters ranging in length from zero (the 
“null” string) to 255. 

SUBROUTINE:A sequence of instructions for performing a desired function; may 
be accessed many times from various points in a program. 


VARIABLE: A quantity that can take on any of a given set of values. 
VARIABLE NAME: The label by which a given variable is addressed. 


TRS-80 Level II Error Codes 


CODE ABBREVIATION ERROR CODE ABBREVIATION ERROR 
I NF NEXT without FOR 13 ™ Type mismatch 
2 SN Syntax error 14 OS Out of string space 
3 RG Return without GUSUB 15 LS String too long 
4 OD Out of data 16 ST String formula too complex 
5 FC Illegal function call 17 CN Can't continue 
6 OV Overflow 18 NR МО RESUME 
7 OM Ош of memory 19 RW RESUME without error 
8 UL Undefined line 20 UE Unprintable error 
9 В5 Subscript out of range 21 MO Missing operand 
10 DD Redimensioned array 22 FD Bad file data 
H /0 Division by zera 23 L3 Disk BASIC only 
12 ID Illegal direct 


Error Messages 


NF NEXT without FOR: NEXT is used without a matching FOR statement. This 
error may also occur if NEXT variable statements are reversed in a nested loop. 

SN Syntax Error: This usually is the result of incorrect punctuation, open paren- 
thesis, an illegal character or a misspelled command. 

RG RETURN without GOSUB: A RETURN statement was encountered before a 
matching GOSUB was executed. 

OD Out of Data. A READ or INPUT # statement was executed with insufficient 
data available. DATA statement may have been left out or all data may have been 
read from tape or DATA. 

FC Illegal Function Call: An attempt was made to execute an operation using an 
illegal parameter. Examples: square root of a negative argument, negative 
matrix dimension, negative or zero LOG arguments, etc. Or USR call without 
first POKEing the entry point. 

OV Overflow: A value or derived is too large or small for the computer to handle. 

OM Out of Memory: All available memory has been used or reserved. This may 
occur with very large matrix dimensions, nested branches such as GOTO, 
GOSUB, and FOR-NEXT Loops. 

UL Undefined Line: An attempt was made to refer or branch to a non-existent line. 

BS Subscript out of Range: An attempt was made to assign a matrix element with a 
subscript beyond the DIMensioned range. 

DD Redimensioned Array: An attempt was made to DIMension a matrix which had 
previously been dimensioned by DIM or by de-fault statements. It is a good idea 
to put all dimension statements at the beginning of a program. 

/0 Division by Zero: anattempt was made to use a value of zero in the denominator. 

ID Illegal Direct: The use of INPUT as a direct command. 
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TM Type Mismatch: An attempt was made to assign a non-string variable to a string 
or vice-versa. 

OS Out of String Space: The amount of string space allocated was exceeded. 

LS String Too Long: A string variable was assigned a string value which exceeds 
255 characters in length. 

ST String Formula Too Complex: A string operation was too complex to handle. 
Break up the operation into shorter steps. 

CN Can’t Continue: A CONT was issued at a point where no program exists, e.g., 
after program was ENDed or EDITed. 

NR No RESUME: End of program reached in error-trapping mode. 

RW RESUME without ERROR: A RESUME was encountered before ON ERROR 
GOTO was executed. 

UE Unprintable Error: An attempt was made to generate an error using an ERROR 
statement with an invalid code. 

MO Missing Operand: An operation was attempted without providing one of the 
required operands. 

FD Bad File Data: Data input from external source (1.е., tape) was not correct or 
was in improper sequence, etc. 

L3 DISK BASIC only: An attempt was made to use a statement, function or 
command which is available only when the TRS-80 Mini Disk is connected via 
the Expansion Interface. 


Saving Memory Space 


1. When your program is operating properly, delete all unnecessary REM 
statements from your running version. 

2. Do not use unnecessary spaces between statements, operators, etc. 

3. When possible, use multiple-statement program lines (with a colon between 
each two statements). Each time you enter a new line number it costs you 5 bytes. 

4. Use integer variables whenever possible, for example, 

FOR 1% = TO 10 
Integers take only two bytes. Single precision takes 7 and double precision takes 11 
bytes. 

5. Using subroutines will save program space if the operation is called from 
different places several times. If a routine is always called from the same place, use 
unconditional branches (GOTOs). Each active GOSUB takes 6 bytes; a GOTO 
takes none at Run time. 

6. Structure your calculations so as to use as few parantheses as possible. It 
takes 4 bytes to process parentheses. And since these operations inside parenthe- 
ses are done first, the result of each parenthetical expression must be stored (this 
takes 12 bytes). 

7. Dimension arrays sparingly. When you set up a matrix, the Computer 
reserves 11 subscript addresses for each DIMension, even if the space is not filled. 
Use the zero subscript elements, since they are always available. 

8. Use DEF statements when you will be working with values other than single 
precision (strings, integers and double precision). A DEF statement takes 6 bytes 
but this is made up for fairly quickly since you don’t need to use type declaration 
Characters with the variabie names. 


Control, Graphics, and ASCII Codes for the TRS-80 


CODE Function CODE Function 

0-7 None 11 Top of form (with line printer) 

8 Backspaces and erases 12 Top of form (with line printer) 
current character 13 Line feed/carriage return 

9 None 14 Turns on cursor 

10 Line feed/carriage return 15 Turns off cursor 


250 


CODE Function CODE Function 


16-22 None 28 Home, return cursor to 
23 Converts to 32 character mode display position (0,0) 
24 Backspace Cursor 29 Move cursor to beginning of line 
25 Advance Cursor 30 Erases to the end of the line 
26 Downward linefeed 31 Clear to the end of the frame 
27 Upward linefeed 

Code Character Code Character 

32 space 

33 ! 66 B 

34 ü 67 С 

35 # 68 D 

36 $ 69 E 

37 % 70 Е 

38 “ 71 G 

39 i 72 H 

40 ( 73 І 

41 ) 74 J 

42 * 75 K 

43 + 76 L 

44 å 77 M 

45 - 78 N 

46 : 79 O 

47 / 80 P 

48 0 81 Q 

49 1 82 R 

50 2 83 S 

51 3 84 Т 

52 4 85 0 

53 5 86 V 

54 6 87 W 

55 7 88 X 

56 8 89 Y 

57 9 90 2 

58 91 ог [ 

59 ; 92 

60 < 93 

61 = 94 

62 > 95 -- 

63 ? 96-127 lower case for 

64 @ codes 64-95 

65 A 128 Space 
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ix B Apple 


Append 


System and Utility Commands 


LOAD Loads a program from tape. 

SAVE Saves a program on tape. 

NEW Deletes program in memory. 

RUN Executes program starting at lowest line number. 
RUN 100 Executes program starting at line 100. 

STOP Halts execution— prints line number. 

END Halts execution—no message. 

сіті с Used in immediate mode to halt program or listing. 
reset Unconditional jump to Monitor. 

CONT Continues execution of program. 

TRACE Debugging aid; lists each line number as executed. 
NOTRACE Turns off TRACE. 

PEEK(X) Returns contents, location X. 

POKE X,13 Changes contents memory location X to 13. 


WAIT X,Y,Z Waits until contents of location X, when XORed with Z and ANDed 


with Y, gives non-zero result. 


CALL X Goes to machine-language subroutine beginning at memory location 

USR(X) Passes value X to a machine-language subroutine. 

HIMEN: Sets highest memory address available to APPLESOFT program use. 

LOMEN: Sets lowest memory address available to APPLESOFT program use. 

LIST Lists entire program. 

List X-Y Lists lines from X to Y. 

DEL X,Y Deletes lines from X to Y. 

REM XYZ Remarks for writing program; ignored during RUN. 

VTAB Y Moves cursor to line Y (1 to 24). 

HTAB X Moves cursor to position X (1 to 40). 

ТАВ(Х) Only іп PRINT statement; moves cursor to position X (1 to 40). 

РО5(0) Returns current horizontal position of cursor (0 to 39). 

SPC(X) Only in PRINT statement; puts X spaces between last item printed 
and next. 

HOME Clears screen and puts cursor at top. 

CLEAR Resets all variables to zero. 

ЕрЕ/О) Returns amount of memory still available to user 

FLASH Sets computer output to flashing. 

INVERSE Sets computer output to black on white. 

NORMAL Turns off flashing or inverse output. 

SPEED=X Sets character output rate (0 to 255). 

esc Å Moves cursor one space right. 

esc B Moves cursor one space left. 

esc C Moves cursor one space down. 

esc D Moves cursor one space up. 

right-arrow Enters character under cursor into memory, and moves cursor one 
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space right. 


left-arrow Deletes one character from line being typed, and moves cursor one 
space left. 
ctrl X Cancels line currently being typed. 


Graphics and Game Controls 


GR Sets low-resolution graphics; clears top 40 х 40 area to black; bot- 
tom 4 lines text. 

COLOR=X Sets color (0 to 15) for next plotting. 

PLOT X,Y Places colored dot at horizontal coordinate X and vertical coordinate 
Ү. X and Y are from 0 to 39. 0,0 is top left. 


HLIN X1,X2 AT Y Draws horizontal line from the point at X1, Y to the point 
at X2,Y. 

VLIN Ү1,Ү2 AT X Draws vertical line from the point at X, Y1 to the point at 
Х,Ү2 


SCRN(X,Y) Returns color on the screen at the point X,Y. 


High-Resolution Graphics 


HGR Sets high-resolution graphics, clears top 280 x 160 area to black; 
bottom 4 lines text. 
HGR 2 Sets high-resolution graphics, clears entire 280 x 192 screen to 
black. 
HCOLOR Sets color (0 to 7) for next plotting. 
=X 


HPLOT X,Y Places color dot at horizontal coordinate X and vertical coordinate Y. 
X is from 0 to 279; Y is from 0 to 159 (HGR) or to 191 (HGR 2). 0,0 is 
top left corner. | 

HPLOT X1, Draws line from the point at X1, Y1 to the point at X2, Ү2. Command 

Y1 TO X2, may be extended to additional points . . . TO XN, YN. 
Y2 


SHLOAD Loads a shape table from tape. 


DRAW 3 Draws shape definition #3 from a previously loaded shape table, 
AT X,Y starting at the point X,Y in color set by HCOLOR. 


XDRAW 3 Draws shape definition #3 from shape table; color of each point 
AT X,Y plotted is complement of color on screen at that time. 


ROT=X Sets rotation of shape for DRAW ог XDRAW. ROT=0 is vertical, 
ROT=16 is 90 degrees clock-wise, ROT=32 is 180 degrees 
clockwise, etc. 

SCALE=X Sets scale (1 to 255) of shape for DRAW or XDRAW. 


Game Controls 
PDL(X) Returns setting from 0 to 255 of game control X (0 to 3). 


PEEK (X-16287) If > 127, button on game control X (0 to 2) is being pressed. 
PEEK (-16336) "Clicks" APPLE's speaker. 
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BASIC Statements 


DEF 


DIM 
END 


GET 


INPUT 


LET 
STOP 
CONT 


The user can define built-in functions like (SQR,SGN,ABS etc.) 
through the use of the DEF statement. The name of the function is 
‘FN’ followed by a legal variable name. | 
Allocates space for matrices. All matrix examples are set to zero by 
the DIM statement. 

Terminates program execution without printing a BREAK message 
(line number). 

This function scans the keyboard and does not wait for a carriage 
return to be pressed. A$=" "(null string) and A=0 after execution of 
these statements computer stays in loop until key has been pressed. 
Request information character by character until carriage return from 
the keyboard. 

Assigns a value to a variable. The “LET” function is optional. 
Halts program execution and prints BREAK IN LINE 100 ( example). 
Can be executed only in a direct mode. 

Resumes program execution after STOP,END or use of STOP key. 


BASIC Commands 


CLR Deletes all stored references to variables, arrays, functions, GOSUB, 
and FOR-NEXT context. 

LIST Lists entire program, lists one line or lists lines 100-200 (example). 

LOAD Loadsfirst program on cassette #1. If a name is specified the compu- 
ter will search for that name on the cassette. 

NEW Deletes any program currently stored in memory. 

RUN Begins execution of program starting at lowest line number. Run 50, 
begins program execution at line 50 (example). 

SAVE Save BASIC text on cassette #1. 

SAVE Save on 2ND cassette unit. 

“МАМЕ”,2 
SAVE Save and write end of tape block. 


“NAME” ,2,1 
VERIFY Compares contents of memory with file, reports success/failure of 
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compare. 


Alphabet 

flowchart 

program listing 

sample run 
Alphabetize 

flowchart 

program listing 

sample run 
APPLE II, basic equivalents 


B 
Big Game Animal Hunt 
flowchart 
program listing 
sampie run 
Bombardier 
flowchart 
program listing 
sample run 


Channel 
flowchart 
program listing 
Computer Concentration 
flowchart 
program listing 
sample run 


Due! 
flowchart 


program listing 
sample run 


Electrician 
flowchart 
program listing 
sample run 

Enemy Waters 
flowchart 
program listing 
sample run 

ESP Test 
flowchart 
program listing 

Exterminator 
flowchart 
program listing 
sample run 


Freedom 
flowchart 
program listing 
sample run 
Fathom 
flowchart 
program listing 
sample run 


General 
flowchart 


program listing 
sample run 
General II 
flowchart 
program listing 
sample run 


H 

Heist 

flowchart 

program listing 

sample run 
Higher/Lower 

flowchart 

program listing 


i 
Interstate 
flowchart 
program listing 
sample run 


Kat & Mouse 
flowchart 
program listing 
sample run 


Life Support 
flowchart 
program listing 
sample run 


M 
Math Session 
flowchart 
program listing 
sample run 
Maze 
tlowchart 
program listing 
Memory Test 
flowchart 
program listing 
Mamory Toct I 
flowchart 
program listing 
Meteor 


256 


flowchart 
program listing 
sample run 


Oil Tycoon 
flowchart 
program listing 
sample runs 


P 
PET, basic equivalents 
Play The Numbers 
flowchart 
program listing 
Program games 


Henumber 
flowchart 
program listing 
sample run 


Scrambled Eggs 
flowchart 
program listing 

Scrambled Words 
flowchart 
program listing 

smokey 


program listing 
sample run 


T 
Tank Assault 
flowchart 
program listing 
sample run 
The Bridge 
flowchart 
program listing 
sample run 
Treasure 
flowchart 
program listing 
sample run 
TRS-80, basic equivalents 


